First of all, on both sheets, convert your tables to Range.
then Right Click on the sheet tab (Active) and click View code.
Paste this code into code window:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then 'H column
If Target.Text = "" Then Exit Sub
Dim lngCompleteLastRow As Long
lngCompleteLastRow = Sheets("Complete").Cells(Rows.Count, 2).End(xlUp).Row
Target.EntireRow.Copy Sheets("Complete").Cells(lngCompleteLastRow + 1, 1)
Target.EntireRow.ClearContents
'If you want to delete the row instead, uncomment the following line of code
'Target.EntireRow.Delete
End If
End Sub
Bookmarks