VBA Question on Last Row

[MBloem]

I am trying to get the VBA to copy data from one sheet and append to another. Because I have formulas that return " " if no value is present it still grabs those cells too. How to I get it to take only the rows with value only to the other sheet? Any ideas?

 

[VBA_inminutes]

It would help if you could post the code that you are working with..

 

[MBloem]

Sheets("UPLOAD SHEET (HIDE)").Select
Range(Range("A6"), Range("A6").End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Account Executive Upload Form.xls").Activate
Sheets("New Items").Select
Worksheets("New Items").Range("b65530").End(xlUp).Select
Excel.ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[mikerickson]

Range("A65536").End(xlup) will return the last filled cell in column A, even if it contains a formula that evaluates to ""

Range("A:A").Find(What:="?*",After:=Range("A1"),SearchDirection:=xlPrevious) will return the last cell in column A that has a non-"" value, even if there are formulas below that cell.

The syntax of the .Find might be a bit off, but the key things are looking for the pattern matching string "?*" After:=Range("A1") and searching xlPrevious (rather than xlNext).

 

[MBloem]

/Thank you. I will give it a try.