Match Values On 2 Sheets If Value Matches Copy Row Into 2nd Sheet

I need a macro to start at cell "A1" on sheet1 and then find that same value on sheet 2 in column B. Once it finds that value in sheet 2, the code would copy the row related to "A1" (A1:H1) into the row on sheet 2 with the value matching "A1" from sheet 1. Once it has done this I need it to do the same from A2:A598. I thought this code below was working but it seems to erase a row from sheet 2 if it is not present in sheet 1. I need the macro to only update the row if the information in column A on both sheets is the same. Here is the code I am using

Code:
Sub FindStr()
Dim rFndCell As Range
Dim strData As String

[Code].....