Finding last row excluding formatting

Try

Option Explicit

Sub Macro1()
Dim last_row  As Integer
    last_row = Sheets("ORDERS").Range("A" & Rows.Count).End(xlUp).End(xlUp).Row
    last_row = Sheets("ORDERS").Range("A7").End(xlDown).Row
End Sub

Try what fits best is your opinion

Sub test()
Dim last_row As Long
   last_row = Sheets("ORDERS").Columns(1).Find(What:=vbNullString, LookAt:=xlWhole, After:=Sheets("ORDERS").Range("A7")).Row
   last_row = Sheet4.Columns(1).Find(What:=vbNullString, LookAt:=xlWhole, After:=Cells(7, 1)).Row
End Sub

mind that columns needs to be synced too

Grtz