Werte von Excel Tabellenblättern einer Datei zusammenfügen

Hallo Experten,

ihr habt Fachwissen und ich nur Ahnung, deswegen muss ich mich hier mal zu Wort melden

Folgendes Problem:
Ich habe eine Excel Datei mit mehreren Tabellen. Diese Tabellen sind wiederrum verformelt, da Sie Werte aus anderen Dateien importieren und erstellen.

Ich möchte gerne am Anfang der Datei eine Tabelle "Import" via VBA füllen, die die nachfolgenden (variabel 3-5) Tabellen "Server *" zusammenfasst. Die Überschriften bis zur siebten Spalte sind immer die gleichen, ab dann kommen verschiedene Werte. Ich kann es nicht einfach kopieren oder verknüpfen, da diese Datei beim Start unterschiedlich viele Datensätze in die einzelnen Tabellen importiert. Es sollen also auch keine leeren Zeilen entstehen und nur die Werte übertragen werden, mit Formeln kann ich nichts anfangen. Am Ende der Datei stehen noch zwei andere Tabellen die außen vor sind.

Hört sich also ziemlich kompliziert an, ich habe auch schon ein Makro gefunden, nur leider funktioniert dieses nicht:


Aus Formeln nur die Werter abzuleiten ging doch irgendwie mit ".PasteSpecial Paste:=xlValues" oder?

Facts: Excel 2003 / Win 2000

Bin für jede VBA Hilfe dankbar ;)

Selection.PasteSpecial Paste:=xlPasteValues

Sub EntferneZeilen()
Worksheets("Import").Range("8:65535").Clear  
End Sub

Sub EntferneNullen()
Dim Zelle As Object
For Each Zelle In Worksheets("Import").Range("B8", Range("B65536").End(xlUp))  
    If Zelle.Value = 0 Then Zelle.Clear
Next
End Sub

Sub EntferneNullen()
Dim Zelle As Object
For Each Zelle In Worksheets("Import").Range("B8", Range("B65536").End(xlUp))  
    If Zelle.Value = 0 Then Rows(Zelle.Row).Delete
Next
End Sub

Sub Tabellen_zusammenfügen() 
Dim i As Integer 
Dim letzteZeile As Long 
Dim ZeileImport As Long 

With ActiveWorkbook 
   For i = 2 To .Sheets.Count - 2 
      letzteZeile = .Sheets(i).Range("A65536").End(xlUp).Row   
      If letzteZeile > 7 Then 
         ZeileImport = .Sheets("Import").Range("A65536").End(xlUp).Row + 1   
         .Sheets(i).Rows("8:" & letzteZeile).Copy   
         .Sheets("Import").Range("A" & ZeileImport).PasteSpecial _   
                                       Paste:=xlPasteValues 
      End If 
   Next i 
   .Sheets("Import").Cells(1, 1).Select   
  
  'Zeilen mit Inhalt in Spalte B gleich 0 löschen:   
   With Sheets("Import")   
      For i = .Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 
         If .Cells(i, 2).Value = "0" Then Rows(i).Delete   
      Next 
   End With 
End With 
End Sub

For i = .Cells(Rows.Count, 2).End(xlUp).Row To <b>8</b> Step -1 

'leere Zeilen in Spalte B löschen:   
   With Sheets("Import")   
      For i = .Cells(Rows.Count, 2).End(xlUp).Row To 8 Step -1 
         If .Cells(i, 2).Value = "" Then Rows(i).Delete   
      Next 
   End With 

If .Cells(i, 2).Value = "" Or .Cells(i, 2).Value = "0" Then Rows(i).Delete