If it takes you two days to respond to an initial reply, why would you expect an immediate response when you do come back?

Attach this to your button:

Option Explicit

Sub CopyRow()

Dim acRow As Long
Dim acCol As Long
Dim acSheet As String
Dim awf As WorksheetFunction: Set awf = WorksheetFunction

acRow = ActiveCell.Row
acCol = awf.Match("Y", Range(Cells(acRow, 1), Cells(acRow, Columns.Count)), 0)
acSheet = Cells(1, acCol)
Range(Cells(acRow, 1), Cells(acRow, 3)).Copy _
    Sheets(acSheet).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

Regards, TMS