quote
until the cell reads "FALSE" then stop copying pasting values.
unquote
instead of this I am rephrasing it
whenever the heading is not a date do not copy paste
\
will this macro help you(heading are either excel dates or false
Sub test()
Dim r As Range, c As Range
Worksheets("dcf equity").Cells.Clear
With Worksheets("data check")
Set r = Range(.Range("a1"), .Range("A1").End(xlToRight))
For Each c In r
If CDate(c) Then
c.EntireColumn.Copy
Else
GoTo nextc
End If
With Worksheets("dcf equity")
.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial
End With
nextc:
Next c
End With
End Sub
Bookmarks