Macro - Copy/Paste Special to Next Blank Line
 

I have a macro that I'm using to copy and paste special into another spreadsheet...the problem I am having is that it will not select the next blank line in the spreadsheet, it overlays what I already have. I need to have it keep adding to the existing data and I'm not sure how to do it. I'm sure it is something simple but I'm new to all of this!

Here is my existing code:
Sub Load_Data()
'
' Keyboard Shortcut: Ctrl+z
'
Workbooks.Open Filename:="F:\SSCW\Load File.xls", UpdateLinks:=0
Windows("TEST- XXXXXX.xls").Activate
Sheets("Sheet1").Select
Range("A2:H2").Select
Selection.Copy
Windows("Load File.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Macro - Copy/Paste Special to Next Blank Line
 

Hi lajohn63

See the example on this page
http://www.rondebruin.nl/copy1.htm

Try this example
What if the Database sheet is in another workbook





--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"lajohn63" wrote in message ...

I have a macro that I'm using to copy and paste special into another
spreadsheet...the problem I am having is that it will not select the
next blank line in the spreadsheet, it overlays what I already have. I
need to have it keep adding to the existing data and I'm not sure how to
do it. I'm sure it is something simple but I'm new to all of this!

Here is my existing code:
Sub Load_Data()
'
' Keyboard Shortcut: Ctrl+z
'
Workbooks.Open Filename:="F:\SSCW\Load File.xls", UpdateLinks:=0
Windows("TEST- XXXXXX.xls").Activate
Sheets("Sheet1").Select
Range("A2:H2").Select
Selection.Copy
Windows("Load File.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub




--
lajohn63

EXCEL UPDATE:

You can now select Under the Macros Tab "Use Relative Addresses"
With this on, build your macro again and you will find that it will work