Ignore the hidden rows from Count

Hi,

I need to split the master copy to different sheets for 50 records each. There is hidden rows in the master copy. The code below is able to split the data but the no of records for each sheet is depends on the hidden rows. For examples, the second sheet will less than 50 records if there is a hidden row between. I need each sheet must has 50 records regardless the hidden records. I hope someone can help

Thanks,
Ling

Sub SeparateData()
Dim rLastCell As Range
Dim lLoop, lCopy, a As Long


Application.ScreenUpdating = False


With ThisWorkbook.Sheets("ExportData")
    Set rLastCell = .Cells.Find(What:="*", After:=[a1], SearchDirection:=xlPrevious)
    
    For lLoop = 2 To rLastCell.Row Step 50
       'lCopy = lCopy + 1
        Worksheets.Add After:=Worksheets(Worksheets.Count)  'create worksheet
        For a = 1 To Sheets.Count
        .Range("1:1").EntireRow.Copy Range("A1")
        .Range(.Cells(lLoop, 1), .Cells(lLoop + 49, 1)).EntireRow.Copy Range("A2")
        Next a
    Next lLoop
   
End With

Application.ScreenUpdating = True

End Sub