So you end up with one sheet with 27 times the number of rows that you had
before?

If yes:

Option Explicit
Sub testme01()

   Dim CurWks As Worksheet
   Dim NewWks As Worksheet
   Dim DestCell As Range
   Dim FirstRow As Long
   Dim LastRow As Long
   Dim iRow As Long
   Dim HowManyCols As Long
   Dim HowManyRows As Long
   
   HowManyCols = 10
   HowManyRows = 27
       
   Set CurWks = Worksheets("sheet1")
   Set NewWks = Worksheets("sheet2")
   
   With NewWks
       Set DestCell = .Cells(.Rows.Count, "A").End(xlUp)
       If IsEmpty(DestCell.Value) Then
           'stay put
       Else
           Set DestCell = DestCell.Offset(1, 0)
       End If
   End With
   
   With CurWks
       FirstRow = 2 'headers in row 1???
       LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
       
       For iRow = FirstRow To LastRow
           .Cells(iRow, "A").Resize(1, HowManyCols).Copy _
               Destination:=DestCell.Resize(HowManyRows, 1)
           Set DestCell = DestCell.Offset(HowManyRows)
       Next iRow
   End With
End Sub