Kode til udskrift fejler

Jeg har lån nedenstående kode herfra
http://www.eksperten.dk/spm/599478

Med den fejler i i en af linierne.
Run-time erroer '13':
Type mismatch

Nogen der kan hjælpe.

Sub Udskriv()
Dim Tom As Boolean, VL As Variant, T As Integer, R As Integer, I As Integer, AD As Integer
Application.ScreenUpdating = False
R = Range("C1").SpecialCells(xlLastCell).Row
AD = Range("C1").SpecialCells(xlLastCell).Column
For I = 1 To R
Tom = True
VL = Range(Cells(I, 1), Cells(I, AD)).Value
For T = 1 To AD
If VL(1, T) <> "" Then  ' denne linie fejler
Tom = False
Exit For
End If
Next

If Tom = True Then
Rows(I).EntireRow.Hidden = True
End If
Next
ActiveSheet.PrintOut
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Sub Udskriv()
Dim Tom As Boolean, VL As Variant, T As Integer, R As Integer, I As Integer, AD As Integer
Application.ScreenUpdating = False
R = Range("C1").SpecialCells(xlLastCell).Row
AD = Range("C1").SpecialCells(xlLastCell).Column
For I = 1 To R
Tom = True
VL = Range(Cells(I, 1), Cells(I, AD)).Value
For T = 1 To AD
If VL(1, T) <> "" Then
Tom = False
Exit For
End If
Next

If Tom = True Then
Rows(I).EntireRow.Hidden = True
End If
Next
ActiveSheet.PrintOut
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub