Sub CopySheetData()
Dim wbDest As Workbook
Dim wbSource As Workbook
Set wbSource = ActiveWorkbook
Set wbDest = Workbooks("workbookB")
wbSource.Sheets("SheetIN_Data").UsedRange.Cells.Offset(1, 0).Copy Destination:=wbDest.Sheets("SheetIN_Data").Range("A2")
End Sub
gowflow