Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim Tlastrow As Integer
- Tlastrow = Cells(1, Columns.Count).End(xlToLeft).Column
- For r = 1 To Tlastrow
- Workbooks("InputB.xls").Worksheets("HC_MODULAR_BOARD_20180112").Range("F3:G3").Copy _
- Workbooks("Output.xls").Worksheets("Sheet1").Range("I3")
- Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement