VBA - 循环 - 复制以...开头的所有值（来自两列）

Question

我有这段代码（循环遍历列并复制以“2020-”开头的所有值）但是：

Dim cell As Range
Set wb = ActiveWorkbook
Set ws = Sheets("MATIKGL")  
Set ws2 = Sheets("2020") 

For Each cell In ws.Range("A1", ws.Range("A65535").End(xlUp))
    If Left(cell, 5) = "2020-" Then
        ws2.Range("A65535").End(xlUp).Offset(1, 0) = cell
    End If
Next cell

但是当找到值（从2020-开始）时，我还想将列A的相应值从ws（列B）复制到ws2（列b），没有条件，就像它一样。

我尝试过使用cell.resize，但它不起作用。