Доброго времени суток.
Записал небольшой макрос. Но как сделать чтобы он переносил все правильно, пока разобраться не могу.
Нужно чтобы переносилось в правильном порядке и не нарушалась нумерация карточек.
Сейчас макрос выглядит так.
[vba]Код
Sub CopyToDL()
Application.ScreenUpdating = False
' CopyToFile Макрос
' выбираем то что нужно скопировать
Range("B6:o6").Select
Selection.Copy
'Переходим на страницу куда надо вставлять данные
Sheets("DL").Select
row_number = 1
Do
DoEvents
row_number = row_number + 1
'находим куда вставлять скпированное
inr = Range("B" & row_number)
Loop Until inr = ""
Range("B" & row_number).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("P Form").Activate
ActiveWorkbook.Save
End Sub
[/vba]