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!

 

[svendiamond]

THANK YOU ALL! I'll stay with Michael M.
Is this(A7: ) range starts looking from A7 to down? Right?

It would actually be searching from the bottom of the sheet, up to the first used cell it finds.

 

[ljubo_gr]

Thanks, but i'll use arrows(or some kind of objects) above columns. So it will work on all ranges, all sheets? At A78 there is =sum... so i hope it will find first empty cell between A7:77! THANK YOU ALL! GOD BLESS JOHN LENNOX, LAWRENCE KRAUSS, RICHARD DAWKINS, WILLIAM LANE CRAIG, MICHIO KAKU...

 

[Michael M]

Bit shorter and it won't matter if the user inputs "a" or "A" in the inputbox
Option Compare Text

Option Compare Text
Sub upArrow()
ans = InputBox("Which Column Do you want to search, A or G ?")
Select Case ans
Case Is = "A"
ThisWorkbook.ActiveSheet.Range("A7:A" & Cells(Rows.Count, "A").End(xlUp).Row).Find(What:="", lookat:=xlWhole).Select
Case Is = "G"
ThisWorkbook.ActiveSheet.Range("G7:G" & Cells(Rows.Count, "G").End(xlUp).Row).Find(What:="", lookat:=xlWhole).Select
End Select
End Sub

 

[Michael M]

The codes start at A7 or G7 and work down for the first blank cell !!

 

[ljubo_gr]

No, please, i don't want input columns. I will have a problem with A7: range. I have in A78 sum function. Because, i have different ranges i'll have to write three codes.
Again, thank you all! Please chek my other cuestions http://www.mrexcel.com/forum/excel-...separator-turns-into-dot-after-copy-code.html

 

[svendiamond]

I will have a problem with A7: range. I have in A78 sum function.

What problem is this causing?

 

[ljubo_gr]

The codes start at A7 or G7 and work down for the first blank cell !!

Now i understand. Thank you all! How to mark as solved?

 

[Michael M]

GOD BLESS JOHN LENNOX, LAWRENCE KRAUSS, RICHARD DAWKINS, WILLIAM LANE CRAIG, MICHIO KAKU...

AND

SvenDiamond and Michael M.....

 

[ljubo_gr]

NO NO not working i'm novice, ERROR 400

this is in ThisWorkbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If ActiveCell.Column() > 21 Or ActiveCell.Row() > 721 Or ActiveCell.Row() = 1 Then
        GoTo AkoGRESKA
        Else
        Application.ScreenUpdating = True
AkoGRESKA:
    End If
End Sub
 

Sub upArrow()
Dim foundBlank As Range
Set foundBlank = Range("b7:b").Find(What:="", lookat:=xlWhole)
    foundBlank.Select
End Sub
Sub DownArrow()
Dim foundBlank As Range
Set foundBlank = Range("p7:p").Find(What:="", lookat:=xlWhole)
    foundBlank.Select
End Sub

Help!

 

[svendiamond]

What line is highlighted yellow on this error? I can see right now you have your "End If" located after your Goto thing... but what is even the point of this goto? And really what's the point of your sheetselectionchange event?