View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
cottage6 cottage6 is offline
external usenet poster
 
Posts: 108
Default Copy cell contents using Input Box

I need to copy down the contents of a cell the number of cells specified in
an Input Box. I first need to find the last used cell in the column as the
data will keep apending each month. LastRow equals the number in the Input
Box and I can combine that with the Column letter, but I'm having a problem
getting the last used cell address. So if the last cell in the column is M79,
I want to copy the contents down the number of cells in the Input Box. I
hope I've explained this well enough; don't laugh too hard, I'm not very good
at this. Any help would be greatly appreciated as always.

Dim LastRow As Long
Dim FirstRow As Range
Range("M65536").End(xlUp)(1).Select
LastRow = Application.InputBox("How many categories?")
FirstRow = ActiveCell

With Worksheets("Margin %")
.Range("FirstRow:M" & LastRow).FillDown
End With