有条件地将代码从一个工作簿绘制到另一个工作簿

Question

我有两本工作簿。我想动态地从一个到另一个绘制信息。我已经研究了几天，似乎唯一的方法是使用Visual Basic，但我不知道如何使用VB。我愿意学习，但有人需要给我一步一步的指示，最好是截图，以便如何做到这一点。

这是具体细节。我想代码检查Workbook1，Sheet1，ColumnK的特定值，让我们说“西”。如果一行在ColumnK中有“West”，我希望将整行复制并粘贴到下一个可用行中的Workbook2，Sheet2中。我希望这是动态的，这样每当我向Workbook1添加新信息时，代码都会检查并向Workbook2绘制相关信息。如果无法将其绘制到Workbook2中，我宁愿将其绘制到Workbook1，Sheet2中。

我刚从同一个Workbook1中的另一个Stack Overflow线程中复制了一个代码。

Sub CopyRow()

Application.ScreenUpdating = False

Dim x As Long
Dim MaxRowList As Long
Dim S As String
Dim wsSource As Worksheet
Dim wsTarget As Worksheet

Set wsSource = ThisWorkbook.Worksheets("ASK")
Set wsTarget = ThisWorkbook.Worksheets("Petty Cash")

iCol = 1
MaxRowList = wsSource.Cells(Rows.Count, iCol).End(xlUp).Row

For x = 3 To MaxRowList
    If InStr(1, wsSource.Cells(x, 11), "West") Then
    wsTarget.Rows(x).Value = wsSource.Rows(x).Value
    End If
Next

Application.ScreenUpdating = True

End Sub

这对我来说暂时有效，但如果有人可以告诉我如何编辑代码以便将信息绘制到单独的工作簿中，那将非常有用。我请你使用外行的条款（和截图），以便我能理解。