in richtiger tabelle ausführen

Sub kopieren3()
'
' kopieren3 Makro
' Makro am 08.04.2003 von Remo Wyss aufgezeichnet
'

'
Range("H3").Select
Application.CutCopyMode = False
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A4").Select

Dim rg As Range
Dim Ziel As Range
x = Range("A3")
Set rg = Sheets("K" & x).Range("A65536").End(xlUp).Offset(1, 0)
Set Ziel = Range(rg, rg.Offset(3, 8))

Range("H3:P6").Copy

For Each cell In ActiveSheet.UsedRange
If cell.Value = "" And Len(cell) = 0 Then cell.ClearContents
Next

Ziel.PasteSpecial xlPasteValues

Range("B11:E11").Select
ActiveCell.FormulaR1C1 = ""
Range("B12:E12").Select
ActiveCell.FormulaR1C1 = ""
Range("B13:E13").Select
ActiveCell.FormulaR1C1 = ""
Range("B14:E14").Select
ActiveCell.FormulaR1C1 = ""
Range("C16").Select
ActiveCell.FormulaR1C1 = ""
Range("C18").Select
ActiveCell.FormulaR1C1 = ""
Range("C19").Select
ActiveCell.FormulaR1C1 = ""
Range("C2").Select
End Sub