Sub test()
Application.ScreenUpdating = False
Dim ws As Worksheet, Lr&, r As Range
Set ws = Sheets("sheet1")
For x = 1 To 2
Lr = IIf(x = 1, 1, ws.Range("A" & Rows.Count).End(3).Row + 3)
a = Sheets(Choose(x, "Maklil1", "Maklil2")).[A3].CurrentRegion.Value
ws.Cells(Lr, 1).Resize(UBound(a), UBound(a, 2)) = a
With ws.Cells(Rows.Count, 9).End(3)(2)
If x = 1 Then .Offset(-1).Resize(, 6) = [{"ITEM","NAME","POSTING","DEBIT","CREDIT","BALANCE"}]
.Resize(, 6) = Array(x, a(2, 2), a(2, 4) - a(2, 5), 0, 0, a(UBound(a), 6))
.Offset(, 3) = Application.Sum(Application.Index(a, Evaluate("row(3:" & UBound(a) & ")"), 4))
.Offset(, 4) = Application.Sum(Application.Index(a, Evaluate("row(3:" & UBound(a) & ")"), 5))
End With
Next
For Each r In ws.UsedRange.SpecialCells(2).Areas
With r.Cells(1).CurrentRegion
.Borders.LineStyle = xlSolid
.Rows(1).Interior.Color = vbRed: .Rows(1).Font.Bold = True
.Offset(, 1).NumberFormat = Array("general", "#,0.00", "#,0.00", "#,0.00", "#,0.00", "general")
.Columns.AutoFit
End With
Next
End Sub
Bookmarks