Макрос копирования одной строки в другую по указанию номеров этих строк

[KillWEy]

Здравствуйте, не понимаю как написать макрос, чтобы при указании номера первой строки (Например: номер первой строки - 5), заданные ячейки первой строки (например: B5, C5 и E5) вырезались на указанный номер второй строки (Например: номер второй строки - 2) и вставлялись заданные ячейки первой строки. Заранее всем спасибо.

[Elixi]

Какое-то странное пожелание, кажется мне.
А что делать с данными в ячейках A5 и D5 ?
Вы случайно не хотите просто устранять строки с пустыми ячейками ?

[Aleksandr H.]

Option Explicit

Sub DoSomething()
    Dim iFrom As Integer
    Dim iTo As Integer
    iFrom = [J1].Value2 + 1
    iTo = [J2].Value2 + 1
    Cells(iTo, "B").Value2 = Cells(iFrom, "B").Value2
    Cells(iTo, "C").Value2 = Cells(iFrom, "C").Value2
    Cells(iTo, "E").Value2 = Cells(iFrom, "E").Value2
End Sub

[KillWEy]

Elixi, Здравствуйте, в том то и дело что они нужны для дальнейшего использования

[KillWEy]

Aleksandr H., Здравствуйте, спасибо большое за помощь, а как изменить код, чтобы он вырезал ячейки и они оставались пустыми при перемещении

[Aleksandr H.]

Cells(iTo, "B").Value2 = Cells(iFrom, "B").Value2
    Cells(iTo, "C").Value2 = Cells(iFrom, "C").Value2
    Cells(iTo, "E").Value2 = Cells(iFrom, "E").Value2
Cells(iFrom, "B").Value2 = ""
    Cells(iFrom, "C").Value2 = ""
    Cells(iFrom, "E").Value2 = ""