copy data to master workbook from different workbook VBA, and need selected column to copy , when condition met

[pradeephatti]

Hi All,

Need help on below , I need to copy data to master workbook from different workbook VBA, and need selected column to copy , when condition met, have created code, but some error, can some one help on this please

V-1

UNIT	Revised CRD	Style	Master PO	Market	DC Code	DC Name	Color Code	Color Name
Vendor-1	15-Aug	ABCD	1234	MX	1005	Mexico	W23	DARK DRY

<colgroup><col><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>

V-2

UNIT	Date	Style	Master PO	Market	DC Code	DC Name	Color Code	Color Name
Vendor-2	3-May	BCDA	325219	AP	W00410_2W	Outdoor Mexico	1	BLACK
Vendor-2	3-May	A1VTY	325219	AP	W00410_4E	Japan	244	CUB
Vendor-2	3-May	SLDD	874508	AP	W00410_1R	China	918	BRITISH KHAKI
Vendor-2	3-May	SDLDS	1423797	AP	W00410_4E	us	433	DARK SAPPHIRE
Vendor-2	3-May	FAF	1973086	AP	W00410_1R	Outdoor Mexico	433	TBW23 DARK DRY
Vendor-2	3-May	LSFG	325219	AP	W00410_4E	Japan	590	CASSEL EARTH

<colgroup><col><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>

have done code but some error, Sub AddToMaster() 'this macro goes IN the master workbook Dim wsMaster As Worksheet, Sheet1 As Workbook Dim NextRow As Long, lastrow As Long Dim FileName As String Dim FolderPath As String Dim n As Long Dim i Set wsMaster = ThisWorkbook.Sheets("Sheet1") 'Specify the folder path FolderPath = "C:\Users\hattip\Desktop\DPR" 'specifying file name FileName = Dir(FolderPath & "*.xls*") Do While FileName <> "" NextRow = wsMaster.Range("A" & Rows.Count).End(xlUp).Row + 1 Set wbDATA = Workbooks.Open(FolderPath & FileName) With wbDATA.Sheets("Sheet1") lastrow = .Range("A" & .Rows.Count).End(xlUp).Row ' If LastRow > 5 Then For i = 2 To lastrow If Cells(i, 11).Value = "Mexico" Then .Range("A2:I" & i).Copy wsMaster.Range("A" & NextRow).PasteSpecial xlPasteValues 'Set NextRow = NextRow Loop End With Next i FileName = Dir() Application.ScreenUpdating = True End Sub

<colgroup><col><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>