Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Copy_Alternatives()
- Worksheets("Repair Replacement Recom").Range("A:C").Value = Worksheets("CNA eTool Alternatives").Range("A:C").Value
- End Sub
- Sub Copy_Paste_Range()
- Dim lNewRow As Long
- Dim lDataRow As Long
- ThisWorkbook.Activate
- lNewRow = Worksheets("CNA eTool Addit. Alternatives").Cells(Worksheets("CNA eTool Addit. Alternatives").Rows.Count, "H").End(xlUp).Row
- lDataRow = Worksheets("Repair Replacement Recom").Cells(Worksheets("Repair Replacement Recom").Rows.Count, 1).End(xlUp).Row
- lDataRow = lDataRow + 1
- Worksheets("CNA eTool Addit. Alternatives").Range("H2:J" & lNewRow).Copy
- Worksheets("Repair Replacement Recom").Range("A" & lDataRow).PasteSpecial
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement