Loop - Copy & Paste

I am trying to do a Macro that looks at column G, if the cell value is "Yes" or "No" it copies the whole line and pastes in the relevant sheet "Approved/Rejected".

I have managed to get it to do this, but my formula always pastes into row 2. This is a report that I will want to start at row 2, but also, run and start the next available line if line 2 is full.

I remember doing this on the course, but my notes don't cover how to do this

Sub FindYesNo()
Sheets("Buyer accepted").Select
Range("G2").Select
Do Until ActiveCell = ""
If ActiveCell = "Yes" Then
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("Buyer Approved").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Buyer accepted").Select
ActiveCell.Offset(0, 6).Select

ElseIf ActiveCell = "No" Then
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("Buyer Rejected").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Buyer accepted").Select
ActiveCell.Offset(0, 6).Select

Else
ActiveCell.Font.Color = RGB(128, 0, 128)

End If
ActiveCell.Offset(1, 0).Select

Loop

End Sub

Many Thanks
Emma