Looking for VBA code to stop data updating using today's date.

**Vickymabo** · 08-10-2015, 02:23 PM

Hello Good People,

I am new to VBA and working on one of my spreadsheet that I update weekly. I have the dates from 1/1/2015 to 12/31/2015 and the data are from "K37:BN401". I wanted to write a code so that the data update will stop at "Today's" date any day I open the spreadsheet to update. I have a code below which tend to update the data to today's date but also have the last value for today copied through to the end of the year. Please any help will be greatly appreciated. Thanks all. Below is my current code:
Sub Update_WeeklyReport()

Dim myArray() As Variant
myArray = Worksheets("Sheet1").Range("K37:BN401").Value

With Sheets(1).Range("A4")
.Value = Date
.NumberFormat = "mm/dd/yy"

End With

Dim LastRow As Long

LastRow = Cells(Cells.Rows.Count, "K").End(xlUp).Row
Range("K37:BN" & LastRow).FillDown

End Sub

**Winon** · 08-10-2015, 02:30 PM

Hello Vickymabo,

Oops!

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Regards.