How to loop Ranges in VBA?

Note: it is better to avoid using Select , Activate , etc...

To loop through ranges that changes per row, use the For loop through lRow below:

' loop example per your case
For lRow = 1 To 100
    Range("A" & lRow & ":D" & lRow).Select
Next lRow

To loop through ranges that changes per column, use the For loop through Col below:

' loop example per your case
For Col = 1 To 4
    Range(Cells(1, Col), Cells(1, Col + 3)).Select
Next Col