Sub Change()
    Dim indexA, indexB As Integer
    Dim tempVal As Double
    Dim multipl As Double
    
    indexA = 1
    indexB = 1
    multipl = 1.6
    
    While Cells(indexA, indexB) <> ""
        tempVal = Cells(indexA, indexB).Value
        tempVal = tempVal * multipl
        Cells(indexA, indexB).Value = tempVal
        indexA = indexA + 1
        If Cells(indexA, indexB).Value = "" Then
            indexA = 1
            indexB = indexB + 1
        End If
    
    Wend
End Sub