View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
NPell NPell is offline
external usenet poster
 
Posts: 76
Default Macro - Next blank row

I have A summary Sheet, and a few tabs, and i want a macro to collate
all this information.
So far i have;

--------------------------
Dim rng As Range

Set rng = Sheets("Summary
Sheet").Range("A65536").End(xlUp).Offset(1, 0)

Sheets("SME Quarterly").Select
Rows("15:43").Select
Selection.Copy Destination:=rng
Application.CutCopyMode = False

Sheets("Sheet1").Select
Rows("15:43").Select
Selection.Copy Destination:=rng
Application.CutCopyMode = False

Sheets("Sheet2").Select
Rows("15:43").Select
Selection.Copy Destination:=rng
Application.CutCopyMode = False

Sheets("Sheet3").Select
Rows("15:43").Select
Selection.Copy Destination:=rng
Application.CutCopyMode = False
End Sub
--------------------------

All it seems to do is paste over the top of each entry.
Thanks if you can help.