copying data's from sheet 1 to sheet6

[msksanthu]

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

[Fotis1991]

Welcome(again) to the forum. Pls take some minutes to read forum rules before you post again, because(in this case)

Unfortunately:

This is a duplicate post and as such does not comply with Rule 5 of our forum rules. This thread will now be closed, you may continue in your other thread.

Thread Closed.