A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
You can use:
Range(Range("B4").Value).Resize(Range("B2").Value).FillDown
for the first part. For the second, you could assign a name to the cell, then use that name in the code. Eg select B2 and then type ResizeValue in the name box on the left of the formula bar and press enter. Then in the code refer to Range("ResizeValue").Value