Copy 1st column in every tab in work book and paste on Final

something like this?

Sub CopyFirstColumns()
    Dim strAddress As String
    Dim shtData As Worksheet
    Dim shtUpload As Worksheet
    Dim lngCol As Long
    
    strAddress = "A1:A100"
    Set shtUpload = Worksheets("Upload")
    For Each shtData In Worksheets
        If shtData.Name <> shtUpload.Name Then
            lngCol = lngCol + 1
            shtData.Range(strAddress).Copy shtUpload.Cells(1, lngCol)
        End If
    Next
    
End Sub