Copy cells from last rows to another tab

[x65140]

I need to copy the tab Name AND the A & B cells from the last row that has data - to the RESULTS tab
Example:
On the AL tab - copy A160 & B160 to the RESULTS tab then
on the AR tab - copy A32 & B32 to the RESULTS tab under the AL tab data...etc...

RESULTS
AL (A160 data) (B160 data)
AR (A32 data) (B32 data)

{see attached}

[davesexcel]

Please update your profile as necessary to properly reflect the exact version(s) of Excel your question relates to. Members tailor answers based on your Excel version.

[AB33]

Try the attached.

[YasserKhalil]

Here's my version

Sub YasserKhalil()
    Dim ws As Worksheet, LR As Long, I As Long
    I = 2
        For Each ws In ActiveWorkbook.Sheets
            If ws.Name <> "Results" Then
                LR = ws.Range("A" & Rows.Count).End(xlUp).Row
                Cells(I, 1).Value = ws.Cells(LR, 3).Value
                Cells(I, 2).Value = ws.Cells(LR, 1).Value
                Cells(I, 3).Value = ws.Cells(LR, 2).Value
            End If
            I = I + 1
            If I > Sheets.Count Then Exit Sub
        Next ws
End Sub

[JOHN H. DAVIS]

FWIW:

Sub x65140z()
Dim i As Long
Dim y As Long
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "RESULTS" Then
        With Sheets(i)
            y = .Range("A" & Rows.Count).End(3).Row
            .Range(.Cells(y, "A"), .Cells(y, "B")).Copy Sheets("RESULTS").Range("B" & Rows.Count).End(3)(2)
            Sheets("RESULTS").Range("A" & Rows.Count).End(3)(2) = Sheets(i).Name
        End With
    End If
Next i
End Sub

[x65140]

Thanks guys!!! Awesome....as usual!