modify current VBA help

Please use code tags when posting. Maybe:

Sub richardlaffan()
Dim x As Range
Dim ws As Worksheet, ws2 As Worksheet
Set ws = ActiveSheet
Set ws2 = Sheets("PRODUCT INFO")
Set x = Sheets("PRODUCT INFO").UsedRange.Find(ws.Cells(595, "A").Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not x Is Nothing Then
        MsgBox "What Do You Want The Message Too Say??"
    Else
        ws.Range("A595:C595").Copy ws2.Range("A" & Rows.Count).End(3)(2)
        ws.Range("A595:C595").ClearContents
    End If
        Set x = Nothing
End Sub