Copy a specific column data of filtered output without header

Try

worksheets("Sheet1").usedrange.columns("M:M").offset(1,0).specialcells(xlcelltypevisible).copy

Try

worksheets("Sheet1").usedrange.cells(1,ColNo).offset(1,0).specialcells(xlcelltypevisible).copy

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

-------

I tested it at my end and it works fine. It shouldnt copy the entire row but only that column.

Can you try again?

Upload your sample file with the whole code. Let me test.

Why are you searching for Domain? Is it because that column can be in any column?

So you want this output - ?

For each row having FS in column A, the value in column F should be copied in Sheet2 column A?

Updated code -

Sub test()
    'Worksheets("Sheet1").UsedRange.Columns("F:F").Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
    
    Range("A1").AutoFilter
    
    With ActiveSheet
        .UsedRange.AutoFilter Field:=1, Criteria1:="FS"
        NumFSRows = .Columns(1).Cells.SpecialCells(xlCellTypeVisible).Cells.Count - 1   'Subtract 1 for the Header
        
        If NumFSRows > 0 Then
            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
                .UsedRange.Columns(ColumnNumber).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
                
                Sheets("Sheet2").Select
                Range("A1").Select
                ActiveSheet.Paste
            End If
        End If
    End With
End Sub

Based on your last post in this thread, its apparent that you are satisfied with the solution(s) you've received and have solved your question, but you haven't marked your thread as "SOLVED". I will do it for you this time.

In future, to mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.

Change

NumFSRows = .Columns(1).Cells.SpecialCells(xlCellTypeVisible).Cells.Count - 1

to

NumFSRows = .Columns(1).Cells.SpecialCells(xlCellTypeVisible).Cells.Count.end(xlup).row- 1