Wenn Zelle in der Spalte Daten enthält kopieren und in eine andere Zelle in der gleichen Zeile einfügen

Question

Ich habe Daten in Spalte in BR und ich versuche, mein Makro zu arbeiten, so dass, wenn die Zelle nicht leer ist dann kopiert und fügt die Daten in die Spalte AO derselben Zeile ein.

Ich habe das bisher, aber es scheint nicht zu funktionieren.

Application.ScreenUpdating = False 
For i = 1 To Range("BR" & Rows.Count).End(xlUp).Row 
    If Cells(i, "BR").Value >= "1" Then .Cut Destination:=Cells(i, "AO") 
Next i 

Answer 1

Meinst du nicht leer oder größer als 1?

For i = 1 To Range("BR" & Rows.Count).End(xlUp).Row 
    If Cells(i, 70).Value <> "" Then Cells(i, 41).Value = Cells(i, 70).Value 
Next i