Copy Cells to another sheet if information in the row matchs

TEST1.xlsm

hi im trying to copy the first cell in the row of data from one sheet to another when another cell in that row = 1

see attached docuemnt

i want to end up on sheet 2 with one list of items from the first list that have an item type of 1

code i have so far is below it doe does not work to well

first part deleting existing data needs expanding to say if there is no data dont delete as it errors if it tries to delete empty table

second error is when you try and copys

please point out where i need to improve the code

thanks

Please Login or Register  to view this content.

add:

Dim nxtrow as long

modify:

if lrow1>=4 then Worksheets("Second").Range("A4:A" & lrow1).Delete

i think you mean:

Worksheets("first").Range("A" & Item.Row).Copy_
Destination = Worksheets("second").Range("A" & NxtRow) instead of "A4"&nxtrow