Multple Worksheet Tabs to form One list

[NotaVBAeXpert]

So I have 18 different tabs in which have testing data on them in the same format for each worksheet. For example, Testing Sh 1, Test Sh 2 etc. My data that I need is range C2:C22 on each sheet and I want to take this range and form one long encompassing list. So far I have this but it isn't working and I'm not exactly sure where to fix it is.

Sub ListIt()
Dim i As Long


For i = 1 To Sheets.Count - 1
With Sheets("Testing Sh 1")
Cells(i + 1, 1).Value = Sheets(i).Range("$C$5:$C$22").Value
Cells(i + 1, 2).Value = Sheets(i).Range("$C$5:$C$22").Value

End With
Next i
End Sub

Any help would be great.

Thanks,

 

[Fluff]

How about

Sub ListIt()
   Dim i As Long
   For i = 1 To Sheets.Count - 1
      With Sheets("Testing Sh 1")
         .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(21).Value = Sheets(i).Range("C2:C22").Value
      End With
   Next i
End Sub

 

[NotaVBAeXpert]

How about

Sub ListIt()
   Dim i As Long
   For i = 1 To Sheets.Count - 1
      With Sheets("Testing Sh 1")
         .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(21).Value = Sheets(i).Range("C2:C22").Value
      End With
   Next i
End Sub

I'm not sure where the output on this is? And would I have to list each worksheet tab to ensure it gets copied?

 

[Fluff]

The output is on sheet "Testing Sh 1"