请求优化VBA代码：按Transaction列O值分转数据至Template对应列

需求说明 #

当Transaction工作表的*O列（第15列）*值为From时，将对应行的关联数据填入Template工作表的「(from)」列；当O列值为To时，填入Template工作表的「(To)」列。我写了一段VBA代码，但不确定逻辑是否正确，希望得到技术支持实现该功能。

本人编写的VBA代码 #

Sheets("Transaction").Select
If Cells(lr, 17).Value = "From" Then
    Range(Cells(2, 18), Cells(lr, 18)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Set X = Selection
    Sheets("Template").Select
    Range("D8").Select
    X.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
End If

Sheets("Transaction").Select
If Cells(lr, 17).Value = "To" Then
    Range(Cells(2, 18), Cells(lr, 18)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Set X = Selection
    Sheets("Template").Select
    Range("F8").Select
    X.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
End If

相关截图 #

• Transaction工作表数据展示截图
• Template工作表目标列位置截图

内容的提问来源于stack exchange，提问作者CM Choong