For Each rg In wbkWs.Range("A2:A" & wbkWs.Range("A65536").End(xlUp).Row)
Do While rg.Offset(k + 1, 0) <> ""
DT = rg.Offset(k, 0)
Date1 = CStr(DatePart(m, DT)) & "/" & CStr(DatePart(yyyy, DT))
DT1 = rg.Offset(j, 0).Value
Date2 = CStr(DatePart(m, DT)) & "/" & CStr(DatePart(yyyy, DT1))
If Range("G1") = "" Then Range("G" & k) = Date1
If (DatePart(m, DT) <> DatePart(m, DT)) Then
Range("G" & j) = Date2
k = k + 1
j = j + 1
End If
Loop
Next rg