Thread: Copying data
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Kevin Kevin is offline
external usenet poster
  
Posts: 504
Default Copying data
Try this

Sub cop()
Range("A1", Range("A1").End(xlDown)).Copy _
Destination:=Worksheets("Sheet1").Range("A1")
Application.CutCopyMode = False
End Sub
Reply With QuoteReply With Quote