Question about range in VBA

[garyyy3]

Hi,

Dim a as range, b as range

Sheets("FX Historical Data").Activate
            Set a = Range("a1").Offset(Range("A1").End(xlDown).Row, 0)
            Range("a").Resize(UBound(Arr(FNum, 1), 1), UBound(Arr(FNum, 1), 2)) = Arr(FNum, 1)

Sheets("Position Data").Activate
            Set b = Range("a1").Offset(Range("A1").End(xlDown).Row, 0)
            Range("b").Resize(UBound(Arr(FNum, 2), 1), UBound(Arr(FNum, 2), 2)) = Arr(FNum, 2)

I would like to paste some data in two sheets. There are totally 6 files data. I try to use range, offset and end function to find the last cell of the column, to prevent replace the data pasted before. But the code shows defined error.

I am not familiar with VBA, so, I dont know how to make my idea into real. What should I change to make this code work??

Thank you!