Sub Vector()
     With Sheets(1)
         Range(.Cells(2, 1), .Cells(Rows.Count, Columns.Count)).ClearContents
     End With
     '-------------------------------------------------------------------------

     Dim lc As Integer
     lc = Sheets(2).Cells(1, 1).End(xlToRight).Column

     Dim i As Byte
     For i = 2 To Sheets.Count
         With Sheets(i)
             Dim lr_i As Long
             lr_i = .Cells(1, 1).End(xlDown).Row

             Dim rngFrom As Range
             Set rngFrom = Range(.Cells(2, 1), .Cells(lr_i, lc))
         End With

         '----------------------------------------------------

         With Sheets(1)
             Dim lr As Long
             lr = .Cells(Rows.Count, 1).End(xlUp).Row

             Dim rngTo As Range
             Set rngTo = .Cells(lr + 1, 1).Resize(rngFrom.Rows.Count, rngFrom.Columns.Count)
         End With

         rngTo.Value = rngFrom.Value
     Next i
End Sub