I can't give you the data unfortunately. If you would like to fill in the columns with data yourself you are more than welcome. I fail to see how you won't be able to see what the code is doing when the code itself tells you line by line what it does. I would suggest opening the sample file and running this code line by line intead of running the macro all at once to get a better understanding. I have put comments in the code line by line almost to help.
'OPENS FILE
Workbooks.Open Filename:= _
"...............sample file.xls"
'WIDENING THE COLUMN SO IT CAN BE SEEN
Columns("A:A").Select
Selection.NumberFormat = "mm/dd/yy;@"
Selection.ColumnWidth = 10
'INSERTING A HEADER
Range("A6").Select
ActiveCell.FormulaR1C1 = "date"
'INSERTING THE ACTUAL DATE FOR THE FILE - CONTAINS TRANSACTIONS THAT I CAN NOT SHARE
Range("A7").Select
ActiveCell.FormulaR1C1 = "DATE11"
'COPIES THE DATE
Range("A7").Select
Selection.Copy
'MOVING OVER A FEW COLUMNS TO A COLUMN THAT IS FILLED WITH DATA (I LEFT THAT DATA ON THE SPREADSHEET)
ActiveCell.Offset(0, 4).Select
'GOING DOWN TO THE BOTTOM OF THAT COLUMN'S DATA
Selection.End(xlDown).Select
'MOVING BACK OVER TO THE COLUMN THAT IS EMPTY TO PUT THE DATE IN THAT ROW THAT CONTAINS DATA
ActiveCell.Offset(0, -3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'COPYING THE DATE SO THAT I CAN FILL THE REMAINING CELLS IN THAT COLUMN WITH THE DATE FOR THE REMAINING ROWS WITH NO DATE
Selection.Copy
'GOING UP THE EMPTY CELLS IN THE COLUMN
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'SELECTING THE RANGE OF DATA I WISH TO COPY DOWN TO THE LAST ROW WITH DATA (AGAIN THIS AMOUNT OF DATA CHANGES EVERY DAY THUS THE REASON FOR SELECTION.END(XLDOWN) INSTEAD OF INPUTTING A RANGE
Range("A7:N7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'NOW ITS READY TO GO BACK TO THE OTHER SPREADSHEET FOR PASTING
Does this help?
Bookmarks