Find Specific Cell, Copy Row And Paste Into New Sheet

I have a excel file with two worksheets. I need to find a specific row in column g, cut the entire row, and paste it into sheet2. I have started off by using this code, that I got off of some site. It works wonderfully in finding the specific cell, but just copys and moves the specific cell into sheet2. Whereas I need it to cut and paste the entire row where it finds the cell that begins with a 3 in column G.


Sub Copy_To_Another_Sheet_1()
Dim FirstAddress As String
Dim myArr As Variant
Dim Rng As Range
Dim Rcount As Long
Dim i As Long