Hello,

I want rng to be the cell the value of €œB9€� is pasted into.

For example:
€œTest Data€� is in €œB9€� and when the code is run €œTest Data€� is inserted into
€œB23€� the first blank cell in €œB10:B€�

When you say €œit is never set to anything€� how should this be done.

Gotroots

"Mike H" wrote:

Hi,

Rng isn't selecting because it is never set to anything so it will fail.
What do you want Rng to be?

Mike

"Gotroots" wrote:

The last blank cell containing the value of "B9" does not rng.Select. Much
appreciate if someone could advise me as to why.

If IsEmpty(Range("b9")) Then
MsgBox "No record found in B9.", vbInformation
Else
lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1

If lngLastRow <= 10 Then
Range("B10").Value = Range("B9").Value
Else
Cells(lngLastRow, "B").Value = Range("B9").Value
If rng Is Nothing Then
Else
rng.Select
End If
End If
End If

End Sub