Copy specific cells in each row of data with criteria to another

Hello Raani,

Thank you for your post. It would be very helpful if you could email an extract from your worksheet to the following address, so that I can see the exact data and layout. This will help me tailor the code for your data.

forum@stl-training.co.uk

Many thanks
Marius Barnard
Excel Trainer

Hi Raani,

Here is some code which filters by "Confirmed", copies the results, then pastes it in the "2016" sheet, automatically finding the next empty row.

You can modify parts of the code to use for getting the "Pending" results and paste into the relevant area in "2016".

Sub Confirmed()

Sheets("Status").Activate
Range("a1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1").CurrentRegion.AutoFilter _ Field:=2, Criteria1:="Confirmed"
Range("c2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("2016").Activate
Range("d76").End(xlDown).Offset(1).Select
ActiveSheet.Paste

End Sub

I hope this helps!

Kind regards
Marius