Copy a specific column data of filtered output without header

It is not copying just one column. It is copying the the entire row.
I used ColNo.column, instead of ColNo, because excel throws and error otherwise
-------

Set ColNo = Cells.Find(What:="Domain", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, _
                    SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
            If Not ColNo Is Nothing Then
                ColumnNumber = ColNo.Column
                .Cells(1, ColumnNumber).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy  <------------This is copying entire row

-------