Flexibility not to run macro on a specific day of the week

[jjohn98]

Hello.

I would like to create a macro that would take data from "Sheet1" and add it under the existing data in "Sheet2" and roll off 1 weeks' worth of information from "Sheet2" at the same time. At any one time I would like Sheet2 to contain only 13 weeks of data, the current week (imported) and past twelve weeks (remove the old 14th week). The macro I have written is below. I would like the flexibility of not running the macro on a specific day. Can someone help? Thank you.

Sub DeleteRows()

Dim LR As Long, I As Long

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

LR = Range("B" & Rows.Count).End(xlUp).Row

For I = LR To 1 Step -1

If Range("B" & I).Value <= Date - 93 Then Rows(I).Delete

Next I

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub

 

[jjohn98]

I forgot to add the copy part of the macro

Sub CopyInfo()

Sheets("Sheet1").Select

lrow = Cells.Find("*", Cells(2, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

Range("A2:Q" & lrow).Copy

Sheets("Sheet2").Select

ltarget = Cells.Find("*", Cells(2, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

Cells(ltarget + 1, 1).Select

ActiveSheet.Paste
End Sub

 

[Logit]

I would like the flexibility of not running the macro on a specific day.

Sub TestDay()
    If Weekday(Date) = vbTuesday Then
        MsgBox "Not to day big boy"
        Exit Sub
    End If
End Sub

 

[jjohn98]

Sub TestDay()
    If Weekday(Date) = vbTuesday Then
        MsgBox "Not to day big boy"
        Exit Sub
    End If
End Sub

Thank you for the reply, but not exactly what I was looking for. I would like the code to look at the dates in date column and just keep 13wks of information based on the most recent date in that column

 

[anderma8]

I'm new to VB.... I found this which is close to what I want to do. I'm trying to run a macro that will clear a tab after a specific date. I've come up with this, but it's not working. I suspect it's how I have the hard date. Any suggestions?

Sub ClearData()

If Weekday(Date) >= "01/01/2023" Then
Sheets("RawData").Select
Cells.Select
Selection.ClearContents
End If

End Sub

 

[anderma8]

bump... any suggestions?