Next blank cell

[Miree]

I am copying and pasting i need code to paste frm the next blank cell in
column N.

 

[royUK]

You could use


Code
-------------------
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 14).End(xlUp).Row +
-------------------


Or create a function


Code
-------------------
Option Explicit

Function lastRow(Col As Long) As Long
lastRow = Cells(Rows.Count, Col).End(xlUp).Row + 1
End Function

Sub test()
MsgBox lastRow(14)
End Su
-------------------

--
royU

Hope that helps, RoyUK
For tips & examples visit my 'web site
' (http://www.excel-it.com