Добрый День,  
пожалуйста помогите исправить ошибку в данном макросе так как он не подходит ко всем листам и думаю проблема в том что ячейки указаны c RANGE С1 до C149  
а мне нужно что бы было с C1 до конца заполненной ячейки.  
искал пробовал модифицировал, но так и не удается сделать range с C1 до С(последней заполненной ячейки)  
заранее благодарен  
спасибо  
 
ps может сам макрос сортировки данных сделан не правильно (делал с помощью записи макроса)  
 
Rows("1:1").Select  
   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
   Cells.Select  
   ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear  
   ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C1:C149") _  
       , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal  
   With ActiveWorkbook.Worksheets("Sheet1").Sort  
       .SetRange Range("A1:M192")  
       .Header = xlNo  
       .MatchCase = False  
       .Orientation = xlTopToBottom  
       .SortMethod = xlPinYin  
       .Apply  
   End With  
 
 
End Sub