titicola

Sub ChiaTheoNgayThang()
Dim ws As Worksheet
Dim newWs As Worksheet
Dim lastRow As Long
Dim cell As Range
Dim currentDate As Date
' Đặt tên sheet gốc ở đây
Set ws = ThisWorkbook.Sheets("Sheet1")

' Lấy dòng cuối cùng trong cột ngày tháng (giả sử cột A là cột ngày tháng)
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row