Copy paste column

Hi, all

I have this one file where I need to copy paste the filled cells in column A in a table from Sheet Raw data to column A in MB.

This is quite simple though hence I already wrote one short code.

But it shows application-defined or object-defined error.

Sub main()
    Dim r As Range

    Set r = ActiveWorkbook.Sheets("Raw Data").Range("A")
    Do While r.Value <> ""
        ActiveWorkbook.Sheets("MB").Range("A").Value = r.Value
        Set r = r.Offset(1)
    Loop
End Sub

Is it because I'm dealing with a table instead of cells? Hope anyone can enlighten me. Thanks!