Aide pour une macro

Bonjour,
Je suis entrain d'automatiser pour mon boulot (chercheur en géologie) une petite macro pour comparer des pentes. Je bloque sur quelques étapes :
1) je dois importer deux fichiers *.txt, une par feuille de mon tableur excel. pour l'instant j'en suis là :

Workbooks.OpenText Filename:="C:\Users\Sebastien\Desktop\part1.txt", Origin _
        :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Workbooks.OpenText Filename:="C:\Users\Sebastien\Desktop\part2.txt", Origin _
        :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
    SelectAll
    Selection.Cut
    Windows("part1.txt").Activate
    Sheets.Add After:=ActiveSheet
    Sheets("Feuil1").Select
    ActiveSheet.Paste

ça me pose plusieurs problème : 1) ça manque d'élégance, mais ça, je peu m'y faire n'étant pas pro.
2) Si mes fichiers ne s'appellent pas part1.txt et part2.txt, je ne peut rien changer, or mes fichiers s'appellent part1.txt, part2.txt, part3.txt, etc... et il faut que je teste entre elle toutes les combinaisons (part1 avec 2, avec 3, avec 4, puis 2 avec 3, avec 4, puis 3 avec 4...)
3) N'est il pas possible d'importer directement dans un nouvelle feuille plutot que d'ouvrir le fichier et copier coller?

Ensuite, mes fichiers ont un nombre de colonne fixe mais un nombre de ligne variable, et j'aurais besoin d'entrer des formules en bas de colonnes. Pour l'instant, je fais :

Range("A6").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[-4]C:R[-1]C)"

Le problème est bien sur que si j'ai plus de 6 lignes en A, et bien j'écrase la A6, et en plus je fais ma somme uniquement sur les données 1à5

j'aurais aussi besoin parfois d'écrire quelque chose "dx" par exemple, dans la 2eme case après la fin de la colonne (quand elle se finit en A6; écrire en A8, par exemple), comment faire?

Merci beaucoup de votre aide, qui sera précieuse.