VBA moving rows

[wasntme]

Hi,

I am looking for macro that can copy whole row as value to another sheet as last, based on cell values and delete it after from the original location.

Example: if cell value in column E = "Finalised" AND cell value in column E = "New registration", the whole row to be moved/copied (preferably as values) to the last empty row in Sheet2 (there is another data as well) and also delete the empty row left after.

Thanks in advance

 

[wasntme]

Hi,

I am looking for macro that can copy whole row as value to another sheet as last, based on cell values and delete it after from the original location.

Example: if cell value in column E = "Finalised" AND cell value in column D = "New registration", the whole row to be moved/copied (preferably as values) to the last empty row in Sheet2 (there is another data as well) and also delete the empty row left after.

Thanks in advance

Edited range for second condition

 

[Fluff]

Maybe something like

Sub wasntme()
   With Sheets("Sheet1")
      .Range("A1:E1").AutoFilter 4, "New registration"
      .Range("A1:E1").AutoFilter 5, "Finalised"
      .AutoFilter.Range.Offset(1).EntireRow.Copy
      Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub