The code below takes download information for a month and copies it to another sheet in the next open column. The problem is that if new download information is used for the same month, it will go into the next open column (say October) rather than the one previously populated (September). The code below is for the first time use of the download information. What code addition will bring up a message box that says:
"Is this your first download of this month's info?" with a Yes or No feature.
If the answer is Yes, the code places the download info in the next open column (September). If the answer is No, the code clears the last populated column (September) then functions as written placing the download information in the open column (September).
Sub Column_Fill() ' Used for first time copying of download to info tab
Dim rng As Range ' Range of argument answers
Dim rng2 As Range ' Each instance of an argument answer
Dim rng3 As Range ' Source information
Dim i As Integer
Set rng3 = Worksheets("Download").Range("d2:d1100")
Set rng = Worksheets("Info").Range("e3:p1100")
For Each rng2 In rng
If rng2 = "" Then
rng3.Copy ' range (source) to copy
rng2.PasteSpecial (xlPasteValues) ' where to copy as a value rather than formula
Application.CutCopyMode = False
Exit Sub
Else
'Do Nothing
End If
Next rng2
End Sub
I appreciate any help that is given.
Bookmarks