macro consolidates data from worksheets - question

[jw01]

hi

i have the following code:

Private Sub Worksheet_Activate()
Dim Sh As Worksheet
Dim Newsh As Worksheet
Dim LR As Long, NR As Long

Application.ScreenUpdating = False

Set Newsh = ThisWorkbook.Sheets(Sheet20.Name)
Newsh.Range("C12").CurrentRegion.Offset(1).Clear
NR = 9

    
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name Like "*" And Sh.Name <> Sheet7.Name And Sh.Name <> Sheet1.Name And Sh.Name <> Sheet19.Name And Sh.Name <> Sheet18.Name And Sh.Name <> Sheet17.Name And Sh.Name <> Sheet16.Name And Sh.Name <> Sheet15.Name And Sh.Name <> Sheet14.Name And Sh.Name <> Sheet13.Name And Sh.Name <> Sheet12.Name And Sh.Name <> Sheet11.Name And Sh.Name <> Sheet10.Name And Sh.Name <> Sheet19.Name And Sh.Name <> Sheet20.Name And Sh.Name <> Sheet20.Name And Sh.Visible Then
            LR = Sh.Range("B" & Sh.Rows.Count).End(xlUp).Row
            If LR > 8 Then
                Sh.Range("C13:AJ" & LR).Copy
                Newsh.Range("C" & NR).PasteSpecial xlPasteFormats
                Newsh.Range("C" & NR).PasteSpecial xlPasteAll
                LR = Newsh.Range("C" & Rows.Count).End(xlUp).Row
                Newsh.Range("A" & NR, "A" & LR) = Sh.Name
                NR = LR + 1
   
            End If
        End If
    Next Sh
    
Application.ScreenUpdating = True

End Sub

the issue:
i would like for the macro to paste the data start from cell C13:AJ

it works..but its pasting the data now in row 13 of column C....can someone pls help and advise?