Hi,  I have the following code in to run a query from a button and this works
great - except for the fact that instead of replacing existing data it places
the new data beside it - moving along the columns each time.

Please can someone help point out where I have gone wrong.

Private Sub CommandButton1_Click()

 Dim strConnection As String
 Dim strFullFileName As String, strFolder As String
 Dim strQueryName As String
 
 strQueryName = "Pest-Invoice Due"
 strFolder = "U:\"
 
 strFullFileName = _
   strFolder & strQueryName & ".dqy"
 strConnection = "FINDER;" & strFullFileName
   
 With ActiveSheet.QueryTables.Add( _
   Connection:=strConnection, _
   Destination:=Range("A7"))
   .Name = strQueryName
   .FieldNames = True
   .RowNumbers = False
   .FillAdjacentFormulas = False
   .PreserveFormatting = True
   .RefreshOnFileOpen = False
   .BackgroundQuery = True
   .RefreshStyle = xlInsertDeleteCells
   .SavePassword = True
   .SaveData = True
   .AdjustColumnWidth = True
   .RefreshPeriod = 0
   .PreserveColumnInfo = True
   .Refresh BackgroundQuery:=False
 End With
End Sub