Find last Used Cell and more

[chrismarek9]

I have a sheet where the last row can be J79 or it can be J81 depending on options selected. I have a formula in J79, J80, and J81. I need a way to copy the last cell in this column, but it is not the last cell in the whole column of the sheet. Is there a way to define a range I'm looking for the last used cell??

I'm trying to make a quote page where options can make the final price come out on J79 or J81, then the final value cell needs to be copied and pasted to a different cell with in the sheet.

I cant get the first part to work correctly.

Sub FinalAdder()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet


'Selecting the quote sheet
ActiveWorkbook.Sheets("Location Quote").Select

'supposed to find the last used cell after A78, before the next blank cell
Sheets("Location Quote").Range("A78").End(xlDown).Copy

'Pasting previous cell value to the next blank cell above J93
Sheets("Location Quote").Range("J93").End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

 

[Joe4]

Try this instead:

[COLOR=#333333]Sub Te()[/COLOR]
[COLOR=#333333]If Sheets("Location Quote").Range("A81") = "" Then[/COLOR]
[COLOR=#333333]    InvAmt = Sheets("Location Quote").Range("A79")[/COLOR]
[COLOR=#333333]Else[/COLOR]
[COLOR=#333333]    InvAmt = Sheets("Location Quote").Range("A81")[/COLOR]
[COLOR=#333333]End If[/COLOR]

[COLOR=#333333]End Sub[/COLOR]

If that still doesn't work, then it is probably really not blank or empty, but has something like a space in it.