VBA代码在下一个单元格中添加当前日期

Question

我有以下数据（附件），我必须每天手动添加。 现在，我正在尝试自动化它。

1. 我想在下一个可用的单元格中添加当前日期（例如：Cell E1）
2. 第二个单元格（E2），应该从另一个名为“Stock”的工作表中获取自动过滤后可见的行的返回值。



请帮我解释这两个代码。

Answer 1

Sub main()
    With Range("A1").CurrentRegion
        .Offset(, .Columns.Count).Resize(2, 1) = Application.Transpose(Array(Date, Application.WorksheetFunction.Subtotal(103, Worksheets("Stock").UsedRange.Columns(1).SpecialCells(XlCellType.xlCellTypeVisible))))
    End With
End Sub