Run time error 438, object doesnt support this property or method

[33CDonnelly]

I'm having some issues with my macro that previously worked perfectly I have no idea what is going on when I run it to consolidate my sheets named A-Z it stops after G and gives me an error that Run time error 438, This doesn't occur on my practice sheet only on my main workbook and the error is with the LR = .Cells(.Rows.Count, 8).End(xlUp).Row

Sub integratie_Oeldere_revisted_vs3()

'I got a lot of help from AB33, to get this code working; thanks for that AB33.

Dim wsTest As Worksheet

'check if sheet "Consolidated" already exist

Const strSheetName As String = "Consolidated"
 
Set wsTest = Nothing
On Error Resume Next
Set wsTest = ActiveWorkbook.Worksheets(strSheetName)
On Error GoTo 0
 
If wsTest Is Nothing Then
    Worksheets.Add.Name = strSheetName
End If

With Sheets("Consolidated")
    .UsedRange.ClearContents
    .Range("A1:I1").Value = Array("sheet", "Months", "Value1", "Value2", "Value3", "Value4", "value5", "value6", "value7")
    For Each Sh In Sheets
        With Sh
            If .Name <> "Consolidated" Then
                 LR = .Cells(.Rows.Count, 7).End(xlUp).Row
                If LR >= 2 Then
                   Rng = .Cells.Find("*", , , , xlByRows, xlPrevious).Row - 1
                   NR = Sheets("Consolidated").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
                   If Rng > 0 Then
                    Sheets("Consolidated").Cells(NR, 1).Resize(Rng) = .Name
                    Sheets("Consolidated").Cells(NR, 2).Resize(Rng, 32) = .Range("A2").Resize(Rng, 32).Value
                  End If
               End If
            End If
        End With
    Next
    On Error Resume Next

    .Columns("A:Z").EntireColumn.AutoFit
End With
End Sub