Loop and IF help

For what it is worth, you can also use letters instead of numbers.

Sub CopyActiveSheet_v2()
    Dim nLastRow As Long, nRow As Long
    
    nLastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    For nRow = 2 To nLastRow
        x = Cells(nRow, "A").Value
        x = Cells(nRow, "B").Value
        x = Cells(nRow, "C").Value
        x = Cells(nRow, "D").Value
        x = Cells(nRow, "E").Value
        x = Cells(nRow, "F").Value
    Next nRow
End Sub