Yahoo Finance - Need a Macro to Delete Cell and Shift Cells up

[dabears19850]

First and foremost, I know nothing about Macros (setting them up, writing them, etc.), so if you respond you're basically responding to an idiot. That being said, after doing some reading, I'm fairly sure a Macro is what I'm looking for.

So here's the situation... I've set up web queries for historical data from Yahoo Finance (so that way I can run automate updates on the data set). There's two web queries to upload two sets of data - 1 for the historical prices of an index, and the other for the historical prices of the ETF following that index. The data loads great and is aligned well EXCEPT for a small detail of the ETF data. The ETF data, in addition to loading the same exact date range as the Index, also downloads the dividend payout (while the index doesn't include that), so the dates no longer match going across the row.

For the tests I'm trying to run, it's imperative that the dates for the ETF and Index data match. Which leads me to what I'm looking for - a Macro capable of deleting/excluding only the cells containing the dividend payouts of the ETF that would then shift up the cells below it.

Here's a link to the file on Google Drive should anyone like to see it.

[JLGWhiz]

Sub delDiv()
Dim sh As Worksheet, i As Long, lr As Long
Set sh = ActiveSheet 'If sheet is always same name, use Sheets("<Sheet name>") here
lr = sh.Cells(Rows.Count, "G").End(xlUp).Row
    For i = lr To 2 Step -1
        If InStr(sh.Cells(i, 7).Value, "Dividend") > 0 Then
            Rows(i).Delete xlShiftUp
        End If
    Next
End Sub

[dabears19850]

I've had some success this evening. I got a Macro which will eliminate the dividend payout row I don't want, and shifts up all the data below it. However, I need to click it every time I want to remove that dividend payout row (and every time I refresh the web queries the dividend payout row reappears). For my case where I have LOT of data on multiple sheets and with frequent refreshes of the web queries it's not feasible to click the Macro function every time. Here's the Macro I currently have below:

Sub Macro1()
'
' Macro1 Macro
'
'
    Cells.Find(What:="dividend", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, 5)).Select
    Selection.Delete Shift:=xlUp
End Sub

How can I make this a one-click Macro or even an automatic Macro any time I need to refresh the data set?
I uploaded the spreadsheet to Google Drive should anyone like to download the current file.

[dabears19850]

Bump. Still looking for help should someone feel compelled.