Помощь в исправлении недоработаных макросов

[Ukhanev]

Прошу помочь изменить макрос:

' Ñóììèðîâàíèå ïîêàçàòåëåé
Columns("G:H").Select
Dim a(), b(), oDict As Object, i&, ii&, temp$, x&
Dim ind&
'Dim tm: tm = Timer
a = Selection.Value
ReDim b(1 To UBound(a, 1), 1 To 2)
ind = UBound(a, 2)
Set oDict = CreateObject("Scripting.Dictionary" )
oDict.CompareMode = 1
For i = 1 To UBound(a)
If Not IsEmpty(a(i, ind)) Then
If IsNumeric(a(i, ind)) Then
temp = Trim(a(i, 1))
If Not oDict.Exists(temp) Then
ii = ii + 1
b(ii, 1) = temp: b(ii, 2) = a(i, ind)
oDict.Add temp, CStr(ii)
Else
x = oDict.Item(temp)
b(x, 2) = b(x, 2) + a(i, ind)
End If
End If
End If
Next

On Error Resume Next 'åñëè âäðóã ii=0
With Worksheets.Add.Worksheets(1)
.Columns(1).NumberFormat = "@"
.Range("A1:B1").Resize(ii) = b
End With
On Error GoTo 0
'Debug.Print Timer - tm

1.В первой строчке при выделении диапазона берется начало и конец выделяемого диапазона и суммируются эти столбцы, как будет выглядеть макрос, если я изначально хочу указывать какие столбцы мне нужны?
2.В конце при создании нового листа в той же книги почему то не копируются данные в новый лист?
Кто может помочь, буду очень благодарен...

[Ukhanev]

на 2 нашел ответ:
With Sheets.Add
.Columns(1).NumberFormat = "@"