Copy discontinuous rows in continuous rows

[Goalexcel]

I have sheet 1 from column A until column AW, or until count, different rows, to copy to another sheet with macro., in only one column .

Sheet 1 Row A1 = 1, have to copy to sheet 2 Column A and Column B

 

[Peter_SSs]

You will generally get much faster help if you provide your sample data in a form that can be copied to test with. My signature block below has more details.

Assuming Sheet2 is blank to start with, try this with a copy of your workbook.

Sub CopyColumns()
  Dim col As Range
  
  With Sheets("Sheet2")
    .Range("B1").Value = 1
    For Each col In Sheets("Sheet1").Range("A1").CurrentRegion.Offset(1).Columns
      col.Copy Destination:=.Range("A" & Rows.Count).End(xlUp).Offset(1)
      .Range("B2:B" & .Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Value = col.Cells(0).Value
    Next col
    .Rows(1).Delete
  End With
End Sub

 

[Goalexcel]

Thanks so much, work wonderfull!!!

 

[Peter_SSs]

You're welcome. Thanks for the confirmation.