Find first empty cell in row range-VBA

[ljubo_gr]

=Happy+New(Year(2017))

I have three sheets, they have columns A&B, ranges A2:A100, B2:B100. "A" range will always be shorter than B, if that means something. I need vba code to move my selector to First free cell in sheet1 "A"range, another code for "B"range, then another codes for Sheet2...Sheet3.
Thanks in advance kind people!

 

[MARK858]

Neither code is better, they are different. The 2nd one is more specific as it only works on the actual table rather than the column and so wouldn't pick out any data below the table.

Both codes work on the ActiveWorkbook, if it needs to act on a specific workbook whether Active or not then you need to specify the workbook and the sheet in the code and not use select.

Sub DownArrowZ()
Application.Goto Workbooks("TERMINAL GRUDE 2017").Sheets("ED-5").ListObjects("Table2").ListColumns(1).DataBodyRange.Find("*", , xlValues, , , xlPrevious).Offset(1)
End Sub

or (seeing by your like you prefer it short)

Sub DownArrowZ()
Application.Goto Workbooks("TERMINAL GRUDE 2017").Sheets("ED-5").ListObjects("Table2").ListColumns(1).DataBodyRange.Find("*", , -4163, , 1, 2)(2)
End Sub

BTW, please tell people when you are dealing with tables rather than just ranges as you would have got a solution much earlier if you had given full details in your post.

 

[ljubo_gr]

Yes, i'm so sorry, col P is part of a table. I have....another problem, i'll change the workbbok name every month, so... That Michael's solution worked on B col, a col w/o a table.

Sub upArrow()
ThisWorkbook.ActiveSheet.Range("B" & Cells(Rows.Count, "B").End(xlUp).Row + 1).Select
End Sub

 

[MARK858]

Questions, why would it not be the active workbook and sheet if you are running it from a button on the sheet and so why wouldn't the codes I originally posted not work?

 

[ljubo_gr]

I think that ThisWorkbook.ActiveSheet would be enough!?

 

[MARK858]

I think that ThisWorkbook.ActiveSheet would be enough!?

ActiveSheet is enough because you are running it from a button on the sheet and so the sheet is active (you do need the activesheet part because you are using a listobject).

as previously posted...

Sub DownArrowZ()
ActiveSheet.ListObjects("Table2").ListColumns(1).DataBodyRange.Find("*", , xlValues, , , xlPrevious).Offset(1).Select
End Sub

 

[ljubo_gr]

THAAAAAAANNNNNKKKK YOU MARK858, MICHAEL A, it's working.
Updated&uploaded workbook: https://1drv.ms/x/s!ArVOOVnFRGX4hYdG26Rrp-vnqrDCmA