Use the following code...
Saurabh
1: 2: 3:
Dim ssimnum As Long ssimnum = Application.InputBox("Enter Row Number", "Row Number", Type:=1) Set rngTblRcds = Sheets("Data").Range("A2:GB" & ssimnum)