Упорядочивание и перенумерование столбцов через VBA

[Vasya25]

Вручную вводим текстовые значения в столбец В и числовые в С
требуется упорядочить строки по возрастанию числовых значений столбца С(кодом VBA)
и пронумеровать строки в столбце А
я сделал,но у меня получается что число строк привязано к константе,а мне нужно чтобы оно автоматически менялось до стольки,сколько нужно пользователю

Пробовал упорядочить методом Sort,но не разобрался с синтаксисом,т.е. не заработал он у меня

[Vasya25]

вот собственно говоря код программы

Sub Ziga()
Dim a As Integer, b As Integer, j As Integer, k As Integer

Dim Fd As FileDialog, i As Integer, btCancel As Integer
Dim FileNames() As String

a = 10


For j = 1 To a
Cells(j, 1) = j
Next j


'Worksheets("Лист1").Sort(key1:=Wor ksheets("Лист1").Range("C1:C10"))


Range("B1:C10").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Лист1'!$B$1:$C$10")
ActiveChart.ChartType = xlColumnClustered

ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 28
ActiveChart.ClearToMatchStyle


ActiveChart.Export Filename:="График.gif ", FilterName:="GIF"


'Задаём тип диалогового окна
Set Fd = Application.FileDialog(msoFileDialo gSaveAs)
'Получение имени файла
With Fd
With .Filters 'Добавляем фильтры
'.Clear 'Очищаем старые фильтры
' .Add "Текстовые файлы", "*.txt"
' .Add "Файлы печати", "*.prn"
' .Add "Все файлы", "*.*"
End With
.AllowMultiSelect = True 'Разрешаем выбор нескольких файлов
.Title = "Выберите файлы" 'Назначаем заголовок окна
.ButtonName = "Сохранить" 'Надпись на кнопке
.FilterIndex = .Filters.Count 'По умолчанию выбораны "все файлы"
.InitialView = msoFileDialogViewDetails 'Задан вид по умолчанию
btCancel = .Show 'Показываем форму пользователю
If btCancel <> 0 Then
ReDim FileNames(1 To .SelectedItems.Count) 'Переразмериваем
For i = 1 To .SelectedItems.Count
'Здесь содержится полные пути к выбранным файлам
FileNames(i) = .SelectedItems.Item(i)
Next i
Else
ReDim FileNames(1 To 1) 'Переразмериваем
FileNames(1) = "" 'Пользователь выбрал "Отмена"
End If
For i = 1 To UBound(FileNames)
MsgBox "Файл сохранен: " & FileNames(i)
Next i
End With


'ActiveChart.Export Filename:="График.gif ", FilterName:="GIF"


End Sub