using VBA to select first empty row.

I am teaching myself how to work all aspects of excel (formulas, Macros/VBA, ect) on my own with no books and online free resources only. I say this because some of my questions may have an obvious f...

Macros and VBA

katrina bethea

Brass Contributor

Nov 05, 2018

I know very little about programming in any language. I tried putting this into the code/macro and still got an compile error. Where am i supposed to put this code? The VBA editor you mentioned, is that the same thing that you go to when you click the "step into" function on a macro?

I get the concept, basically creating and setting up a new word within the VBA database right?

Wyn Hopkins

MVP

Nov 06, 2018

Hi Katrina,

I've edited your code below to hopefully something that works.

I'd strongly recommend learning about the key elements of VBA if you are intending to write code, you can get yourself into all sorts of complications if you don't start with the basics.

Here's a few tips in an article I wrote plus links to resources

https://www.linkedin.com/pulse/why-do-macros-have-bad-reputation-wyn-hopkins/

Sub RPL_SORT2()
'
' RPL_SORT2 Macro
' SORTS OUT ANYTHING WITH AMOUNT OF "0" TO ORDER
'
Dim LastCell As Range
Dim LastCellColRef As Long

LastCellColRef = 1  'column number to look in when finding last cell on destination sheet - change this as needed
Set LastCell = Sheets("UNNEEDED").Cells(Rows.Count, LastCellColRef).End(xlUp).Offset(1, 0)
'
Rows("2:2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$DM$8442").AutoFilter Field:=6, Criteria1:="<1", _
Operator:=xlAnd
Rows("3:3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
LastCell.PasteSpecial xlPasteValues

Sheets("ALL").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveSheet.AutoFilterMode = OFF
Set LastCell = Nothing

End Sub

Forum Discussion

using VBA to select first empty row.

Resources