Error in Macro to print a Range

Sub test()
Dim LastRowToPrint As Long
Dim PrintArea As Range
Dim FirstCellToPrint As String
Dim LastColumnToPrint As String

FirstCellToPrint = "A1"
LastColumnToPrint = "E"

'Find the last row of data:
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

Set PrintArea = Range(FirstCellToPrint & ":" & LastColumnToPrint & LastRowToPrint)

End Sub

I m getting a probelm in above code and need little immediately, when i run it a message appear that "Method "Range" of object _Global Failed..

Can some one correct it..Sheet is attached i want to print 3 ranges as in sheet from 3 different macros but range always decreasing and increasing.

Thanks in advance

Book1.xls

You have used "quote" instead of code tags, but the intent is there I suppose... (edit, I have too, apparently bold doesn't render in code tags)

see highlighting, what is this variable?

Sub test()
Dim LastRowToPrint As Long
Dim PrintArea As Range
Dim FirstCellToPrint As String
Dim LastColumnToPrint As String

FirstCellToPrint = "A1"
LastColumnToPrint = "E"

'Find the last row of data:
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

Set PrintArea = Range(FirstCellToPrint & ":" & LastColumnToPrint & LastRowToPrint)

End Sub

Clearly:

LastRowtoprint = Cells(Rows.Count, "A").End(xlUp).Row

is necessary.

This kind of error can be avoided by applying option explicit at the top of every code module, You can even set a global setting to apply it automatically: tools -> options -> require variable declaration.

HTH