Copy in a range

[moixerno]

Hello,
I'm trying to do a macro VBA for that:

There is a range in a sheet that I don't know how many rows it has.
I want to copy cells from column D to column C (for example), but only in
the range, becouse there's another data in this D and C columns out of the
range.

Can anybody help me?
Thank you very much.

 

[Mike H]

Hi,

I'm not sure I completely understand but I think you mean you have date in
column D then a gap then more data and you only want to copy the first
portion of the data and this may help.

Sub prime()
lastrow = Range("D1").End(xlDown).Row
Set myrange = Range("D1" & lastrow)
For Each c In myrange
c.Offset(, -1).Value = c.Value
Next
End Sub

Right click you sheet tab, view code and psate this in.

Mike

 

[moixerno]

Thanks Mike. It works very well.

Moixerno

Hi,

I'm not sure I completely understand but I think you mean you have date in
column D then a gap then more data and you only want to copy the first
portion of the data and this may help.

Sub prime()
lastrow = Range("D1").End(xlDown).Row
Set myrange = Range("D1" & lastrow)
For Each c In myrange
c.Offset(, -1).Value = c.Value
Next
End Sub

Right click you sheet tab, view code and psate this in.

Mike