Вставьте новую строку в другой лист и вставьте значение

Question

Я пытаюсь написать код для вставки новой строки в лист "Sheet3", в которой значением первого столбца является значение, которое я сохранил как Range.

Я создал формулу для определения значенияв активном листе, как показано ниже>

Dim cellTaxa As Range
Set cellTaxa = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Offset(1, -2)
End Sub

В основном, вышеупомянутая формула сохраняет значение в ячейке, которая находится на одну ячейку вниз и две ячейки слева от кнопки, которую я нажал.

Следующее, что я хочу сделать, - это вставить новую строку в Лист 3, в которой значением первого столбца является cellTaxa.

Я не смог найти ничего, что будет работать в моей структуре.Любая помощь или подсказка приветствуется.Спасибо!

Answer 1

Option Explicit

Public Sub yoursub()

    Dim cellTaxa As Range
    Set cellTaxa = Sheets("Sheet1").Range("G3") 'replace with your range
    'Would be even better to not use range for a single cell
    ' E.g.: Set cellTaxa = Sheets("Sheet1").Cells(3,7) OR Cells(3,"G")
    'same format can be applied for the .pastespecial part

    Sheets("Sheet3").Range("A1").EntireRow.Insert 'adds empty row at "A1"
    cellTaxa.Copy
    Sheets("Sheet3").Range("A1").PasteSpecial 'pastes CellTaxa into the newly created row

End Sub