help with VBA codes to extract selected data from worksheet on specific conditions

Change

count_1 = 1

to

count_2 = 1

and copy the information across using either:

Sheets("Sheet1").rows(1).copy Sheets("Sheet3").Range("A1")

or

Sheets("Sheet1").rows(1).copy ws.Range("A1")

Depending on whether you are using an existing sheet or adding a new one.