first vba

Sub moveCode()
'获取行
Dim iRows As Long
iRows = Sheets(1).UsedRange.Rows.Count
'循环处理 第一行不为空的数据全部放到D列来
For i = 1 To iRows
    If Sheets(1).Cells(i, 1) <> "" Then
    Sheets(1).Cells(i, 4).Value = Sheets(1).Cells(i, 1).Value
    Sheets(1).Cells(i, 1).Value = Null
    End If
Next
End Sub