makro - skal mod højre istedet for ned

Hej

Jeg har fået lavet følgende makro her på e!
_____________________________________________________
Public Sub tomme()
    Dim lcols As Long
    Dim lRows As Long
   
    For lcols = 2 To 11
        For lRows = 5 To 21 Step 2
            If Cells(lRows, lcols).Value = "" Then
                Cells(lRows, lcols).Value = "HVI - "
            End If
        Next lRows

        For lRows = 6 To 22 Step 2
            If Cells(lRows, lcols).Value = "" Then
                Cells(lRows, lcols).Value = "TBA - "
            End If
        Next lRows

    Next lcols
   
    ActiveWorkbook.Save
   
End Sub
____________________________________________________

Men får at være lidt besværlig vil jeg gerne have den vendt den,
så det er hver anden kolonne istedet for hveranden række

nogle der kan hjælpe !

chewie