with filter 4 different columns value copy and paste in to one columns (one by one) in another excel sheet

[pramod5542]

I write a code its working as per column range.......
code is given below.... but i want to below image mention

Sub Fill_Invoice_Details()
    Dim sh As Worksheet
    Dim dsh As Worksheet
    
    Set sh = ThisWorkbook.Sheets("Invoice")
    Set dsh = ThisWorkbook.Sheets("Sales")
    
    sh.Range("B16:I33").ClearContents
    sh.Range("J5").ClearContents
    sh.Range("J10").ClearContents
    sh.Range("B6:B11").ClearContents
    sh.Range("J37").ClearContents
    
    Dim lr As Long
    lr = Application.WorksheetFunction.CountA(dsh.Range("A:A"))
    
    dsh.UsedRange.AutoFilter 1, Me.TextBox1.Value
    
    dsh.Range("L2:M" & lr + 1).SpecialCells(xlCellTypeVisible).Copy
    sh.Range("B16").PasteSpecial
    
    sh.Range("B16").WrapText = True
  
    dsh.Range("M2:M" & lr + 1).SpecialCells(xlCellTypeVisible).Copy
    sh.Range("C16").PasteSpecial xlPasteValues
    
    
    dsh.Range("K2:K" & lr + 1).SpecialCells(xlCellTypeVisible).Copy
    sh.Range("E16").PasteSpecial xlPasteValues
    
    sh.Range("F15").PasteSpecial xlPasteValues
    dsh.Range("P2:P" & lr + 1).SpecialCells(xlCellTypeVisible).Copy
    sh.Range("G15").PasteSpecial xlPasteValues
    dsh.Range("Q2:Q" & lr + 1).SpecialCells(xlCellTypeVisible).Copy
    sh.Range("H15").PasteSpecial xlPasteValues
    
    
    
    dsh.Range("N2:Q" & lr + 1).SpecialCells(xlCellTypeVisible).Copy
    sh.Range("F16").PasteSpecial xlPasteValues
    
    dsh.AutoFilterMode = False
  
    
    dsh.AutoFilterMode = False
     
    sh.Range("J5").Value = Me.TextBox1.Value
    sh.Range("J7").Value = Me.TextBox2.Value
    sh.Range("J10").Value = Me.TextBox10.Value
    sh.Range("B6").Value = Me.ComboBox4.Value
    sh.Range("B7").Value = Me.TextBox11.Value
    sh.Range("B8").Value = Me.TextBox12.Value
    sh.Range("B9").Value = Me.TextBox13.Value
    sh.Range("B10").Value = Me.TextBox14.Value
    sh.Range("B11").Value = Me.TextBox15.Value
    sh.Range("J37").Value = Me.TextBox9.Value
    

End Sub

 

[pramod5542]

My query is below mention image

 

[pramod5542]

image