The code I posted works perfectly with your file for me
Sub chex()
Dim c As Integer
Dim r As Integer
With ActiveWorkbook.Worksheets("Surveyed Area by Area")
c = Range("D14").End(xlToRight).Column
r = Range("D14").End(xlDown).Row
Range(Cells(14, 4), Cells(r, c)).Copy
End With
End Sub
Are you running in Excel or PowerPoint?
If the latter have you set an Excel Reference
|