Returning transposed data from multiple tabs

Try this macro.

Sub Macro2()
Sheets("Summary").Select
    Cells.Select
    Selection.ClearContents
    Range("A2").FormulaR1C1 = "Country"
    Range("B2").FormulaR1C1 = "Year"
    Range("C2").FormulaR1C1 = "A"
Pos = 3

myshts = ActiveWorkbook.Sheets.Count

Pos = 3
For i = 1 To myshts

TN = ActiveWorkbook.Sheets(i).Name

If TN = "Summary" Then GoTo Skip

    Sheets(TN).Select
    
    LC = Cells(1, Columns.Count).End(xlToLeft).Column
  
    
    Sheets("Summary").Range("B" & Pos & ":B" & Pos + LC - 3).Value = Application.Transpose(Range("C1", Cells(1, LC)).Value)
    Sheets("Summary").Range("C" & Pos & ":C" & Pos + LC - 3).Value = Application.Transpose(Range("C2", Cells(2, LC)).Value)

    ColN = ColN + 1
    Pos = Pos + LC - 2
        
Skip:
    Next
        
Sheets("Summary").Select
Range("A1").Select
    End Sub