Saving The Dimensions Of A Rectangle Of Data

I am trying to automate the cleaning and compiling of some data, in fact its quite a lot of data, there will be about 200,000 lines over several spreadsheets.

Determine the width of the data on spreadsheet1
Determine the rows with empty cells at the bottom of spreadsheet1
"now that I know the dimensions of this rectangle"
Copy a rectangle (with the same dimensions as the one on sheet1) of data from sheet2
And paste this rectangle into sheet1...

"This is the point of the excercise, I cannot have any gaps in the data (this includes at the end of a spreadsheet) as it needs to be a continous flow from one shreadsheet to another"

This is what I have done so far... I understand if it is laughable, I've only been doing this a couple of days.

Sub HowMuchSpace()

' No. of columns
Dim bWidthOfColumns
Range(Worksheets("Sheet1").Range(":*", ":*").Cells.SpecialCells _(xlCellTypeConstants).Count).Value = bWidthOfColumns

'No. of rows
Dim lNumOfRows
Range("*:*").Value = lNumOfRows

End Sub