Move Data from one sheet to another sheet

[smartguy]

Hello all,

Good day.

I have excel sheet in the below format.

Excel 2013/2016
	A	B	C
1	Asset tag	CIIM Asset ID	Status
2	E290220	2118195	Yes
3	E290085	2118571	Yes
4	E291308	2119523	Yes
5	E419024	2127131	No
6	E452404	2128911	Yes
Sheet1

Cell Formulas
Range	Formula
A2	=T("E290220")
A3	=T("E290085")
A4	=T("E291308")
A5	=T("E419024")
A6	=T("E452404")
B2	=T("2118195")
B3	=T("2118571")
B4	=T("2119523")
B5	=T("2127131")
B6	=T("2128911")

If status is "No" I need to remove and move the data in to sheet 2.

Answer :

Excel 2013/2016
	A	B	C
1	Asset tag	CIIM Asset ID	Status
2	E419024	2127131	No
Sheet2

Cell Formulas
Range	Formula
A2	=T("E419024")
B2	=T("2127131")

Please help me to provide VBA Code.

 

[Fluff]

How about

Sub smartguy()
   With Sheets("Sheet1")
      If .AutoFilterMode Then .AutoFilterMode = False
      .Range("A1:C1").AutoFilter 3, "No"
      With .AutoFilter.Range.Offset(1).EntireRow
         .Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
         .Delete
      End With
      .AutoFilterMode = False
   End With
End Sub

 

[smartguy]

Hi Fluff,

Thank you..

Macro working great but Sheet 2 Heading missing.

Regards,

 

[smartguy]

Hi Fluff,

Sorry it's working Great. Thank you.

 

[Fluff]

You're welcome & thanks for the feedback