Kuzmich, не понимаю как интегрировать в код.
Сам код, для понимания - это макрос для обработки данных скопированных с сайта, удаляю не нужные мне строки и раскидываю по ячейкам.
Первая обработка данных:
[vba]Код
Sub Обработка()
Range("B3").Select
Selection.ClearContents
Range("B4").Select
Selection.ClearContents
Range("B5").Select
Selection.Copy
Range("D2").Select
ActiveSheet.Paste
Range("B5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B6").Select
Selection.ClearContents
Range("B7").Select
Selection.Copy
Range("C2").Select
ActiveSheet.Paste
Range("B7").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B8").Select
Selection.ClearContents
Range("B9").Select
Selection.ClearContents
Range("B10").Select
Selection.ClearContents
End Sub
[/vba]
Вторая выглядит точно также, только к каждой ячейке прибавляется 9 (таким образом я делаю не по одной странице, а сразу вставляю все).