Code:Sub CopyData()Dim lastcol As Long Dim nextcol As Long Dim i As Long With ActiveSheet lastcol = .Cells(3, .Columns.Count).End(xlToLeft).Column For i = 1 To lastcol If .Cells(3, i).Value = Date Then nextcol = nextcol + 1 .Range(.Cells(3, i), .Cells(3, i).End(xlDown)).Copy Worksheets("Sheet2").Cells(1, nextcol) End If Next i End With End Sub
Bookmarks