IF Column A=x copy from column B to G in another Worksheet

Hi I wonder if you can help me out with this VBA code.

Thank you for your time.

Try:

Sub Copy_Data()
Dim ws1 As Worksheet:   Set ws1 = Sheets("Input Sheet")
Dim ws2 As Worksheet:   Set ws2 = Sheets("Output Sheet")
Dim x As String
Dim rCell As Range

x = "FILL"

For Each rCell In ws1.Range("A1:A" & ws1.Range("A" & Rows.Count).End(xlUp).Row)
    If rCell.Value = x Then
        ws1.Range("B" & rCell.Row, "G" & rCell.Row).Copy Destination:=ws2.Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If
Next rCell

End Sub

Worked. Thank you stnkynts

To close see Forum Rule No. 9.

9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.

Thank you for your help