append copied data to the last used row

Please Login or Register  to view this content.

Above code working fine, issue data append copied data to the last used row

Code used to copy data from multiple workbooks from one folder and with the same sheet name
One folder
Multiple workbooks
Same sheet name in all workbooks
Issue :
Should start from ROW1
Consolidate into new workbook showing gaap between data copied from multiple sheets

Hi

compile error.
Expected list separator or ) at this line :
If Application.CountA(ThisWorkbook.Sheets(1).Rows(1) = 0 Then


.Attachment 696334

Hi,

Still showing blank rows.

attached sample excel sheets


Inventory1 - Sheet1
Inventory2 - Sheet1

consilidate into
Consht(code in module) = Sheet1 + Sheet1

No blank rows required in consolidated sheet, copied data should be continued...........from row1
=====================================
Does this not mean that you want a blank row between copied sheets?
=====================================

No blanks rows in consolidated sheet at all, copied data from row1

Hi JLGWhiz,

Perfectly worked. Thank You
If Application.CountA(wbk.Sheets(shtname).UsedRange) <> 0 Then

Add on requirement to the existing one
Instead of copying entire data, need to find product number containing text CA (wildcards-column c)

Sample sheet attached.
==========
In addition to the above, small requirement to the existing one,
In given sheet name (shtname = InputBox("Enter SheetName")
A. Open workbook – given sheetname – column c(PRODUCT NUMBER) – find CA (wildcard) – autofilter and
B. Usedrange.copy and copy to the destination sheet.
==========

Thanks JLG,
For the post,append copied data to the last used row