Dynamic Range and Next Available Row

[Horvy]

I am having some trouble using the Dynamic Range and Next Avaiable forumals that I devised within my macro. I recorded the macro first, and then edited it with the dynamic range and next available row in a colum macros.

Sub K2TORMTMAccDetailLD_General_S()
Cells.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=5, Criteria1:="INT-ALM"
    Range(("A2"), Range("N65536").End(xlUp)).Select
    Selection.EntireRow.Delete
    Selection.AutoFilter
    Selection.Copy
    Sheets("K2MTM").Select
    Dim LastCell As Range
      With ActiveSheet
      Set LastCell = .Cells(.Rows.Count, "A").End(xlUp)
      If IsEmpty(LastCell) Then
       'do nothing
       Else
      Set LastCell = LastCell.Offset(1, 0)
      End If
    End With
    MsgBox LastCell.Row
    ActiveSheet.Paste
End Sub

Thanks

 

[Zack Barresse]

Hi there,

Can you provide us with more information, such as what this is supposed to do? What the desired out come is and what it is currently doing. We can read the code, but what you expect as an outcome really matters here.

Also, please explain your data structure to us. I.e. what rows contain headers, what row your data starts on, the size of the data table, etc. You have a lot of Select's in your code, which isn't needed, but it is a detractant for us because we can't "see" what you're selecting.