Automated Report Generation

Sub GenerateMonthlyReport()
    Dim ws As Worksheet
    Dim reportWs As Worksheet
    Dim lastRow As Long

    Set ws = Sheets("Data")
    Set reportWs = Sheets.Add(After:=Sheets(Sheets.Count))
    reportWs.Name = "Report_" & Format(Date, "mmyyyy")

    ' Copy and format headers
    ws.Range("A1:D1").Copy reportWs.Range("A1")
    With reportWs.Range("A1:D1")
        .Font.Bold = True
        .Interior.Color = RGB(79, 129, 189)
        .Font.Color = RGB(255, 255, 255)
    End With

    ' Add summary calculations
    reportWs.Range("F1").Value = "Total Records:"
    reportWs.Range("G1").Formula = "=COUNTA(A:A)-1"

    MsgBox "Monthly report generated successfully!"
End Sub