Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet "Master List" and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. The macro is triggered by a change in any cell in column A. This means that you must enter the data in all the other columns first and choose "Complete" last in column A.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Dim LastRow As Long
If Target = "Complete" Then
LastRow = Sheets("Session" & " " & Cells(Target.Row, "J")).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Target.EntireRow.Copy Sheets("Session" & " " & Cells(Target.Row, "J")).Cells(LastRow + 1, "A").End(xlUp).**fset(1, 0)
End If
End Sub
Bookmarks