Macro to copy row with same num (sheet1) and sum its column in another sheet

Please help!! i want a macro to search for same num in first collumn and copy all the row with same num to another sheet and total up some of its column.. please download my sample file for better understand what i need..
I try this code but im stuck..

Sub maka()
Dim dic As Object, i As Long, temp As String, e
Set dic = CreateObject("Scripting.Dictionary")
dic.CompareMode = 1
With Sheets("sheet1").Cells(1).CurrentRegion
For i = 1 To .Columns.Count
temp = CStr(.Cells(2, i).Value)
If Not dic.exists(temp) Then
Set dic(temp) = .Rows(1)
End If
Set dic(temp) = Union(dic(temp), .Rows(i))
Next
End With
For Each e In dic
If Not IsSheetExists(e) Then
Sheets.Add(after:=Sheets(Sheets.Count)).Name = e
With Sheets(e)
.Cells.Clear
dic(e).Copy .Cells(1)
.Columns.AutoFit
End With
End If
Next
End Sub

Function IsSheetExists(ByVal txt As String) As Boolean
On Error Resume Next
IsSheetExists = Len(Sheets(txt).Name)
On Error GoTo 0
End Function

thank you

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

And the this is related to your thread
http://www.excelforum.com/excel-prog...nding-row.html

Better continue there.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)