{quote}{login=vkus}{date=16.09.2010 10:30}{thema=выделить границы}{post}помогогите пожалуйста готовый результат програмно выделить границами, т.е. при выгрузке на листе "реестр" какое то всегда разное количество строк и столбцов,необходимо этот диапазон обвести границами, а результат отрицательных чисел выделить красным цветом.{/post}{/quote}  
А вы испоьзуйте условное форматирование на значение в первом столбце и не надо будет программу мучать:)

Извините, но что то ни чего не получается

только Range("A11:L" & ir).Borders.Color = vbBlack  
выделяет и с "А1:

Sub Удаление()  
Range("Реестр!A11:N7000").ClearContents  
ActiveWindow.SmallScroll Down:=-6  
   Range("A11:L1292").Select  
   Selection.Borders(xlDiagonalDown).LineStyle = xlNone  
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone  
   Selection.Borders(xlEdgeLeft).LineStyle = xlNone  
   Selection.Borders(xlEdgeTop).LineStyle = xlNone  
   Selection.Borders(xlEdgeBottom).LineStyle = xlNone  
   Selection.Borders(xlEdgeRight).LineStyle = xlNone  
   Selection.Borders(xlInsideVertical).LineStyle = xlNone  
   Selection.Borders(xlInsideHorizontal).LineStyle = xlNone  
   ActiveWindow.SmallScroll Down:=-27  
   ActiveWindow.ScrollRow = 1239  
   ActiveWindow.ScrollRow = 1236  
   ActiveWindow.ScrollRow = 1231  
   ActiveWindow.ScrollRow = 1218  
   ActiveWindow.ScrollRow = 1188  
   ActiveWindow.ScrollRow = 1057  
   ActiveWindow.ScrollRow = 990  
   ActiveWindow.ScrollRow = 934  
   ActiveWindow.ScrollRow = 836  
   ActiveWindow.ScrollRow = 744  
   ActiveWindow.ScrollRow = 667  
   ActiveWindow.ScrollRow = 601  
   ActiveWindow.ScrollRow = 536  
   ActiveWindow.ScrollRow = 475  
   ActiveWindow.ScrollRow = 385  
   ActiveWindow.ScrollRow = 267  
   ActiveWindow.ScrollRow = 167  
   ActiveWindow.ScrollRow = 83  
   ActiveWindow.ScrollRow = 11  
   Range("A11").Select  
 
End Sub