Found something online that appears to be working. Changed my example above to...
Sheets("X").Select
ActiveSheet.Range("$A$1:$AG$55").AutoFilter Field:=19, Criteria1:="<>"
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, "D").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Y").Select
Dim ECDMtr As Long
ECDMtr = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1
ActiveSheet.Cells(ECDMtr, "B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False