Perform additional tasks with a text import macro

[suprsnipes]

Hi,

I would like to add the following to the macro below;

After each refresh I want Excel to bring in view the last entry to the centre of the spreadsheet. Is this possible?

Sub Macro2()
'
' Macro2 Macro
'

'
    With Selection.QueryTable
        .Connection = "TEXT;\\8b22801\c\q\130610"
        .RefreshPeriod = 1
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 9, 9, 1, 1, 9, 1, 9, 1, 1, 9)
        .TextFileFixedColumnWidths = Array(6, 6, 1, 2, 5, 5, 5, 4, 4, 4, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
   
End With
End Sub

Appreciate the help,
suprsnipes