Вам просто нужно
rnum = BaseWks.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).row
, поскольку вы уже определили BaseWks
в качестве этого листа.
Вам также нужно .row
в конце, чтобы вернуть номер строки.
Если вам нужна сама клетка, вам нужно Set rnum= ...
.