copying data's from sheet 1 to sheet6

Hi,

Please check my below code which is working for current sheet . But i need the same logic which should copy from sheet 1 to sheet6 please help me in solving this .

Sub Get_Status()
Dim rng As Range
Dim iCol As Integer
Dim lastCell As Integer

Set rng = ActiveCell.CurrentRegion
lastCell = rng.Columns(1).Rows.Count + 1
For iCol = 4 To rng.Columns.Count
Range(Cells(2, iCol), Cells(rng.Columns(iCol).Rows.Count, iCol)).Copy
ActiveSheet.Paste Destination:=Cells(lastCell, 4)
lastCell = lastCell + rng.Columns(iCol).Rows.Count
Next iCol
End Sub