Re: Copy Rows To Matching Worksheets In Another Workbook
Quick and dirty, but her ya go
Code
Sub CopyStuff()
Dim ws As Worksheet, LastRowData As Range
For Each ws In Worksheets
Select Case ws.Name
Case "Extraction"
Case Else
Set LastRowData = ws.Range("A65536").End(xlUp).EntireRow
LastRowData.Copy Sheets("Extraction").Range("A65536").End(xlUp)(2)
End Select
Next ws
End Sub
Display More
See [scs]*[/scs] and [luc]*[/luc]