Option Explicit

Sub Maybe()
    Dim sh As Worksheet
    If Not [ISREF(Combined!A1)] Then
        Sheets.Add(, Sheets(Sheets.Count)).Name = "Combined"
    Else
        Sheets("Combined").UsedRange.EntireColumn.Delete
    End If
    'Sheets("Sheet2").Rows(1).Copy Sheets("Combined").Cells(1, 1)  ' Not needed
    For Each sh In ActiveWorkbook.Sheets
        If sh.Name <> "Combined" Then sh.UsedRange.Offset(1).Copy Sheets("Combined").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Next sh
End Sub