VBA to paste selection above second none blank in range

[nadavrock]

i have this code

Sub taskstime2()
'
' taskstime2 Macro
'
' Keyboard Shortcut: Ctrl+t
'
Dim myCells1 As Range
Set myCells1 = Selection
Windows("5. schdule.xlsm").Activate
myCells1.Copy Sheets("1. schdule").Range("hm" & Rows.Count).End(xlUp).Offset(1, 0)


End Sub

it takes selection and paste it after the last nonblank in column hm. i want it to paste above the second noneblank in that column. first cell in column hm is title "tasks" below it are completed tasks. each time i insert row moving them down so the second noneblank changes. the way i work the most recent goes at the top not the bottom while the top row is used for the title of the column.
how do i tweak the above code to provide what im looking for?

 

[nadavrock]

if it helps this gets the second noneblank but i dont know how to use it in vba
=INDEX(GK1:GK13, AGGREGATE(15, 6, ROW(1:13)/SIGN(LEN(GK1:GK13)), 2))

 

[nadavrock]

my solution:



' Macron copy to tasks time




Sub taskstime2()
'
' taskstime2 Macro
'
' Keyboard Shortcut: Ctrl+t
'


Dim Rng As Range
Dim WorkRng As Range
Dim WorkRng2 As Range
Dim counter As Integer
Dim counter2 As Integer
Dim rangeletters As String
Dim stringsum As String
Dim topblank As Range
Dim myCells As Range
Set myCells = selection
Set WorkRng = Workbooks("5. schdule").Worksheets("1. schdule").Range("GY1:GY30")



selection.Copy

counter = 0

On Error Resume Next


For Each Rng In WorkRng


If Rng.Value = "" Then
counter = counter + 1
End If
Next

counter2 = counter + 2

stringsum = ("GY" & CStr(counter2))
Set topblank = Range(stringsum)


Set WorkRng2 = Workbooks("5. schdule").Worksheets("1. schdule").Range("topblank")


Windows("5. schdule.xlsm").Activate
WorkRng2.Select
ActiveSheet.Paste













End Sub