VBA Copy & Paste Data Between Workbooks

[bored622]

Hello everyone,
I'm trying to copy data from one workbook to the other while not trying to remove the formulas in the row. Also, it looks for the next blank row based on if column A is blank. Below is an example of what I'm trying to accomplish.

Workbook One Sheet 1
Name, blank cell, blank cell, blank cell, blank cell, blank cell, blank cell, blank cell, 100, 100, 100, 100 <<<< This is the row I'm trying to copy over to the other workbook.

Workbook Two Sheet 1
blank cell, formula, formula, formula, formula, formula, formula, formula, blank cell, blank cell, blank cell, blank cell <<<<<<<<<< paste in this row without pasting over the formulas. If i run the module again, it pastes the data to the next row in the same way.

Appreciate any help

 

[bored622]

I figured it out on my own. If anyone is interested in what I was trying to accomplish, this is the code I used.

Sub Transfer()

Workbooks("Data.xlsm").Activate
Sheets("Data").Select
Range("L6:M6").Copy

Workbooks("Test.xlsm").Activate
Sheets("Target").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Workbooks("Data.xlsm").Activate
Sheets("Data").Select
Range("T6:W6").Copy
Workbooks("Test.xlsm").Activate
Sheets("PTS").Range("L" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Workbooks("Test.xlsm").Save

End Sub