列内のセルにデータがある場合、同じ行の別のセルにコピーして貼り付けます

Question

BRの列にデータがあり、マクロが機能しないようにするためにマクロを取得しようとしています。同じ行の列AOにデータをペーストします。

私はこれまでこれを持っていますが、動作していないようです。

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

空白でないか、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