다음 셀에 현재 날짜를 추가하는 VBA 코드

Question

다음 데이터가 첨부되어 있으며 매일 수동으로 추가해야합니다. 이제 자동화하려고합니다.

내가 사용할 수있는 다음 셀에 현재 날짜를 추가 할 것

(예 : 셀 E1)
1. 둘째 세포 (E2), "주식"라는 또 다른 시트에서 자동 필터 후 가시 행의 반환 값을 얻어야한다 .

이 두 코드로 저를 도와주세요.

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