Yeah that wont work. You need a range as follows: ColumnLetterRow#:ColumnLetterRow# to use the Range function.

Try the following instead:

ARow = Range("A" & Rows.Count).End(xlUp).Row
BRow = Range("I" & Rows.Count).End(xlUp).Row

Range("A1:A" & ARow & "," & "I1:I" & BRow).Select