Find next empty cell in given range with VBA Code

[darin100K]

Good Evening, my fellow excel addicts.

I'm looking for some VBA code to help me find the next empty cell in a given range. I've been using the following to find the next empty cell in column A, but I would like to start looking at B12 instead of A1:

Col=1
With wsCalc
NextEmptyRow=.Cells(65536, Col).End(xlUp).Row +1
.Range("A" & NextEmptyRow) = Date
End With

Thank You!

 

[Scott Huish]

How about

wsCalc.Range("B12").End(xlDown).Offset(1) = Date

 

[jindon]

Hi

Col=2
With wsCalc
   If .Range("b12") = "" Then
      NextEmptyRow = 12
   Else
      NextEmptyRow=.Cells(65536, Col).End(xlUp).Row +1
   End If
   .Range("A" & NextEmptyRow) = Date
End With