View Single Post
 
Old 06-03-2013, 08:28 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

Maybe this then:

Dim c As Integer
Dim r As Integer
c = Range("D14").End(xlToRight).Column
r = Range("D14").End(xlDown).Row
Range(Cells(14, 4), Cells(r, c)).Copy
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote