Sub multi()

Dim row as Integer: row = 6

With Tabelle1

While Not IsEmpty(Cells(row,5))

  If Cells(row,5).Value > 3 Then
    Cells(row,5).Value = Cells(row,5).Value * 2
  End If

  row = row + 1

Wend

End With

End Sub