If last cell in column A is Greater than column B Then Offset Column A

Hi Again,

I have a spreadsheet that does a lot of offsetting and removing if certain criteria is not met and I have a summary macro that runs along the bottom of the spreadsheet.

The issue I am having is that the summary should offset by two rows to the last cell of column D or column G dependent on which is the lowest cell row in mentioned columns.

For example if the last cell in column G is in a lower row than the last cell in Column D then offset the summary of Column G and vice versa.

I have looked around but I can't seem to find anything so I can't supply a starting code, sorry.

Does anyone have a suggestion?

A sample workbook is the best option here, can you provide a copy

Hi nigelog,

Unfortunately I can't as it is a huge workbook and has a lot of confidential information. I can supply screenshots of the different scenarios though?

Does this help?

Special Instruction Summary should offset from column D

Capture1.JPG

Special Instruction Summary should offset from column G

Capture2.JPG

Hi,

I think I have found the solution from Ron de Bruin if anyone is interested

Sub LastRow_Example()
    Dim LastRow As Long
    Dim rng As Range

    ' Use all cells on the sheet
    Set rng = Sheets("Sheet1").Cells

    'Use a range on the sheet
    'Set rng = Sheets("Sheet1").Range("A1:D30")

    ' Find the last row
    LastRow = Last(1, rng)

    ' After the last row with data change the value of the cell in Column A
    rng.Parent.Cells(LastRow + 1, 1).Value = "Hi there"

End Sub

Function Last(choice As Long, rng As Range)

    Dim lrw As Long
    Dim lcol As Long

    Select Case choice

        On Error Resume Next
        Last = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Row
        On Error GoTo 0

End Select
End Function

https://www.rondebruin.nl/win/s9/win005.htm