Slette rutine

Option Explicit
Dim LastRow, x, y, myRow, myColumn, LastColumn As Integer
Dim btn As Button, MyCell As Range

Sub ListData()
LastRow = Worksheets("ark1").Cells(120000, 3).End(xlUp).Row
y = 3
ActiveSheet.Buttons.Delete
Range("A3:A250").EntireRow.ClearContents

For x = 1 To LastRow
    If Worksheets("ark1").Cells(x, 3) = Range("a2") Then
        Cells(y, 1) = Worksheets("ark1").Cells(x, 5)
        Cells(y, 2) = Worksheets("ark1").Cells(x, 6)
        Cells(y, 3) = Worksheets("ark1").Cells(x, 7)
        Cells(y, 5).Select
        ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets("Ark1").Name & "!A" & x
        Set MyCell = Cells(y, 6)
        With MyCell
            Set btn = ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height)
        End With
        With btn
            .Caption = "Slet"
            .Name = "Button" & x
            .OnAction = "DeleteData"
        End With
        y = y + 1
    End If
Next
End Sub
Private Sub DeleteData()
    myRow = Mid(Application.Caller, 7)
    LastColumn = 10 ' rettes til sidste kolonne A=1 B=2 osv.
    For myColumn = 1 To LastColumn
        Worksheets("ark1").Cells(myRow, myColumn).Value = ""
    Next
End Sub