VBA to copy row from one sheet and paste above row on another sheet

[kwooden]

I have a workbook with 2 worksheets, one named "Timesheet" and the other named "Data".

I created a button on the "Timesheet" worksheet (Add Work) that will insert a blank row on the row directly above the button. Row 2 on the "Data" worksheet has code in some of the cells and I want to insert this row instead of a blank row. I need row 2 from the "Data" worksheet to be copied and inserted on the row directly above the button each time the button is selected so that the inserted row is always the last row inserted.

For example

If I click the button again it should copy and insert row 2 from "Data" worksheet directly underneath the 12:00 entry line.

Below is the VBA I use to insert the blank row.

 

[rlv01]

Perhaps this.

Sub Add_Work_Lines_Above_Button()
    Dim d As Long, I As Long
    Dim c As Range

    With ThisWorkbook.Worksheets("Data")
        Set c = .Range("B2", .Cells(2, .Columns.Count).End(xlToLeft))
    End With

    With ThisWorkbook.Worksheets("TimeSheet")
        d = .Range("A:A").End(xlDown).Row
        For I = d To 2 Step -1
            If .Cells(I, 1).Value = "SatLastRow" Then
                .Rows(.Cells(I, 1).Row).Insert shift:=xlDown
                c.Copy .Cells(I, 1).Offset(0, 1)
            End If
        Next I
    End With
End Sub

FWIW, when you post an image of your data instead of something that can be copied and pasted into a spreadsheet, it is difficult for others to experiment with it. Which means your chances of getting help drop significantly. Instead, use the free XL2BB tool (link below) to post your data in a way that makes it accessible to others. this free tool instead to post some sample data.

 

[kwooden]

rlv01,​

Thank you so much for the chat and for the information about the XLl2BB tool. The chat works great and does exactly what I needed.