Filling cells, get this error: AutoFill method of Range class failed

See more:

VB

MS-Excel

Hello:

I am trying to fill the cells on range B6:H6 down, so I am using Autofill to perform the action. However, I keep getting the error above.

Here is my code:

        Dim eeRefSheets As Excel.Worksheet

        For i As Long = 1 To 3 Step 1

            eeRefSheets = EmployeeSheets(i)

            With eeRefSheets

Dim lngLr As Long = .Cells.Find(What:="*", SearchDirection:=Excel.XlSearchDirection.xlPrevious, SearchOrder:=Excel.XlSearchOrder.xlByRows).Row

                .Range("B6:H6").AutoFill(Destination:=.Range("B6:AH" & lngLr))

            End With

        Next


    End Sub