Referencing row start

[IKHAN]

Hello,

How to modify below query to always start from Row 60 (sheet4) even if new row inserted above row 60?

Thanks for helping out...

Dim i As Long
Dim j As Long

Sheet4LastRow = Worksheets("Sheet4").Range("D" & Rows.Count).End(xlUp).Row
sheet5LastRow = Worksheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Row

    For j = 1 To Sheet4LastRow
        For i = 1 To sheet5LastRow
            If Worksheets("sheet4").Cells(j, 4).Value = Worksheets("sheet5").Cells(i, 1).Value _
                And Worksheets("Sheet5").Cells(j, 5).Value = Worksheets("Sheet5").Cells(i, 2).Value Then
                Worksheets("Sheet4").Cells(j, 1).Value = Worksheets("Sheet5").Cells(i, 3).Value
                Worksheets("Sheet4").Cells(j, 3).Value = Worksheets("Sheet5").Cells(i, 4).Value
                Worksheets("Sheet4").Cells(j, 6).Value = Worksheets("Sheet5").Cells(i, 5).Value
                Worksheets("Sheet4").Cells(j, 7).Value = Worksheets("Sheet5").Cells(i, 6).Value
                Worksheets("Sheet4").Cells(j, 8).Value = Worksheets("Sheet5").Cells(i, 8).Value

            Else
            End If
    Next i
Next j
 
End Sub

 

[Hui]

The following should do it

Dim i As Long
Dim j As Long

Sheet4LastRow = Worksheets("Sheet4").Range("D" & Rows.Count).End(xlUp).Row
sheet5LastRow = Worksheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Row

    For j = 60 To Sheet4LastRow
        For i = 1 To sheet5LastRow
            If Worksheets("sheet4").Cells(j, 4).Value = Worksheets("sheet5").Cells(i, 1).Value _
                And Worksheets("Sheet5").Cells(j, 5).Value = Worksheets("Sheet5").Cells(i, 2).Value Then
                Worksheets("Sheet4").Cells(j, 1).Value = Worksheets("Sheet5").Cells(i, 3).Value
                Worksheets("Sheet4").Cells(j, 3).Value = Worksheets("Sheet5").Cells(i, 4).Value
                Worksheets("Sheet4").Cells(j, 6).Value = Worksheets("Sheet5").Cells(i, 5).Value
                Worksheets("Sheet4").Cells(j, 7).Value = Worksheets("Sheet5").Cells(i, 6).Value
                Worksheets("Sheet4").Cells(j, 8).Value = Worksheets("Sheet5").Cells(i, 8).Value

            Else
            End If
    Next i
Next j
 
End Sub

Without seeing your data the above may not be correct
Always try on a copy of your file just in case

 

[IKHAN]

My code starts from row 60,If any row inserted above row 60. There's mismatch of data.

 

[Hui]

Which is what you asked for!

Can you please provide a sample file together with clear instructions on what the data flow can be

 

[IKHAN]

@Hui
Have uploaded sample file and as shown in below images, data is written on header file if any new row is inserted.

Any suggestion to reference above code to always write data below header file row 17 even if users add row above.

Kindly have a look at my code in attached sample file.

Thanks for assisting...

Before



After row insert and new name added from planning sheet - row 18 has been overwritten the header file