Copy and Paste specific data vba code

[erimhast83]

In the below code I am trying to look through my data for a specific name and then cut that data and paste it into a specific cell but I am getting an error on the last line. the error states: runtime error 438 object doesn't support this property or method. Can anyone help me see what I am missing? Thank you!


Sheets("Raw Data").Select
Last = Cells(Rows.Count, "A").End(xlUp).Row
For i = Last To 1 Step -1
If (Cells(i, "A").Value) = "SLEEPER,MELISSA" Then

Cells(i, "A").Cut
Cells(i + 2, 16).Paste

 

[My Aswer Is This]

Try this:

Sub Copy_Me()
Application.ScreenUpdating = False
Sheets("Raw Data").Select
Last = Cells(Rows.Count, "A").End(xlUp).Row
    For i = Last To 1 Step -1
        If Cells(i, "A").Value = "SLEEPER,MELISSA" Then Cells(i, "A").Cut Cells(i + 2, 16)
    Next
Application.ScreenUpdating = True
End Sub

 

[erimhast83]

Try this:

Sub Copy_Me()
Application.ScreenUpdating = False
Sheets("Raw Data").Select
Last = Cells(Rows.Count, "A").End(xlUp).Row
    For i = Last To 1 Step -1
        If Cells(i, "A").Value = "SLEEPER,MELISSA" Then Cells(i, "A").Cut Cells(i + 2, 16)
    Next
Application.ScreenUpdating = True
End Sub

Thank you - this worked. I have one more question - what if I didn't want to use a specific person's name but I wanted to find words instead of numbers (the numbers are stored as text from the file I pull). How would the code change to do that? I might not have the same employees every time I pull the report.