The following worked for me after changing "Áðñ" to "Apr".

HTH,
Merjet

Sub Macro1()
Dim iHi As Integer
Dim iLo As Integer
Dim iRow1 As Integer
Dim iRow2 As Integer
Dim dAmt As Double
Dim dtDay As Date
Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")

ws2.Cells.Clear
ws2.Cells(1, 2) = "From"
ws2.Cells(1, 3) = "To"
ws2.Cells(1, 4) = "Day"
ws2.Cells(1, 5) = "Amount"

iRow1 = 2
iRow2 = 2
Do Until ws1.Cells(iRow1, 1) = ""
dtDay = ws1.Cells(iRow1, 3)
iLo = ws1.Cells(iRow1, 2)
Do Until ws1.Cells(iRow1, 3) < dtDay
iHi = ws1.Cells(iRow1, 2)
dAmt = dAmt + ws1.Cells(iRow1, 4)
iRow1 = iRow1 + 1
Loop
ws2.Cells(iRow2, 1) = iRow2 - 1
ws2.Cells(iRow2, 2) = iLo
ws2.Cells(iRow2, 3) = iHi
ws2.Cells(iRow2, 4) = dtDay
ws2.Cells(iRow2, 5) = dAmt
dAmt = 0
iRow2 = iRow2 + 1
Loop

End Sub