Gralyndr,

Give this a try:
Sub moveit()
'
' moveit Macro
'
    
    If Trim(Range("A5").Value) = vbNullString Then
        Range("A5").Select
        MsgBox "Must select a category.", , "Insert Error"
        Exit Sub
    End If
    
    With Sheets(Choose([Match(A5,AH2:AH10,0)], "Res.Contractors", "Comm.Contractors", "Service-Remodelers", "Tradesmen", "Resellers", "Architect-Designers", "Realtor-Flipper", "Property Managers", "Owner-Builder"))
        .Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(, 23).Value = Range("AA15:AW15").Value
    End With
    
    Range("C4:C26").ClearContents
    Range("C4").Select
    
End Sub