View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Clare Clare is offline
external usenet poster
 
Posts: 1
Default Insert New Row in a block of data


This is the code I have, and i want this to either be added in a new row
(as there is other information below this line) or add a new row after
the form adds the information to the spreadsheet?


Private Sub CommandButton1_Click()

ActiveWorkbook.Sheets("Jobs").Activate

Range("B7").Select

Do

If IsEmpty(ActiveCell) = False Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = Job_No
Range("B7").Select

End Sub


--
Clare
------------------------------------------------------------------------
Clare's Profile: http://www.excelforum.com/member.php...o&userid=36047
View this thread: http://www.excelforum.com/showthread...hreadid=558463