Macro to copy dta from Col c to D

[howard]

I have written code to copy data from Col C to D on all sheets except the first sheet and the last two sheets.

However, when running the macro , no data is being copied from Col C to D

It would be appreciated if someone can correct my macro

 Sub Copy_data()
Application.DisplayAlerts = False

Dim i As Long
For i = 2 To Worksheets.Count - 2

LR = Cells(Rows.Count, 1).End(xlUp).Row
Range("C1:C" & LR).Copy Destination:=Range("D1")
Application.CutCopyMode = False
Next
End Sub

 

[MARK858]

Howard, try the code below...

Sub Copy_data()
Application.DisplayAlerts = False

Dim i As Long, LR As Long
For i = 2 To Worksheets.Count - 2

LR = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
Worksheets(i).Range("C1:C" & LR).Copy Destination:=Worksheets(i).Range("D1")

Next
End Sub

 

[howard]

Hi Mark

Thanks for the help, code works perfectly

Regards

Howard