VBA- Macro to move entire row of data to new sheet, based on a cell value

[Garrek]

Good morning all,

I'm looking to make a macro to move a full row (columns A-M) from one sheet to another, based on a value in column A. In the first sheet (Sheet1), Column A is populated entirely with unique values. My hope is that the macro could read a cell (B14) containing one of these values on a different sheet (Sheet3), then look up that value, copy the entire row that it is, and paste it onto the target sheet (Sheet2).

Could anyone provide help on this? Let me know if you have any clarifying questions.

 

[Fluff]

That looks fine, is it copying over the data, but not changing col C on sheet2?

 

[Garrek]

Disregard that, I messed up the Withs and such. Amateur here! Got it to work. Thanks a ton for all the help.

 

[Fluff]

Glad it's working & thanks for the feedback

 

[Garrek]

That looks fine, is it copying over the data, but not changing col C on sheet2?

Got it to work, my bad.

Here's the final code:

Sub RetireMove()
   Dim Fnd As Range
   
   With Sheets("Sheet1")
      Set Fnd = .Range("A:A").Find(Sheets("Sheet3").Range("B14").Value, , , xlWhole, , , False, , False)
      End With
   If Not Fnd Is Nothing Then
      With Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)
         Fnd.Resize(, 13).Copy .Offset(1)
         .Offset(1, 2).Value = "Inactive"
         Fnd.EntireRow.Delete
      End With
   Else
      MsgBox "nothing found"
   End If
End Sub