Skjul tomme rækker VBA

Hej
Jeg har dette script som jeg gerne vil have til at virke på rækker i stedet for kolonner - den skjuler nu tomme kolonner, men jeg vil gerne have skrevet den om til rækker i stedet for - jeg synes ikke, at kunne få det til at virke - nogen der kan hjælpe?

Sub SkjulTommeKolonner()
'Gennemløber de første 26 kolonner og skjuler dem,
'hvis de er tomme. Bruges til eksemplet på fanebladet
'Skjul-tomme-kolonner.
Dim rCell As Range
Dim rTest As Range
Dim lCol As Long

On Error GoTo Fejl

'Skærmopdatering slås fra for at øge hastigheden
Application.ScreenUpdating = False

For lCol = 0 To 25 Step 1
    'rCell sættes = cellen lCol til højre
    'for celle A1.
    Set rCell = Range("A1").Offset(0, lCol)
    'Hvis cellen er tom
    If Len(rCell.Value) = 0 Then
        'Gå til første celle nedefter, som har
        'et indhold. Hvis der ikke er nogen
        '"på vejen," havner vi i den nederste celle.
        Set rTest = rCell.End(xlDown)
        If rTest.Row = Rows.Count And Len(rTest.Value) = 0 Then
            Columns(rCell.Column).Hidden = True
        End If
    End If
Next

BeforeExit:
Set rCell = Nothing
Set rTest = Nothing
'Skærmopdatering slås til igen
Application.ScreenUpdating = True

Exit Sub
Fejl:
MsgBox Err.Description & " Procedure SkjulTommeKolonner"
Resume BeforeExit
End Sub