Cell is equal to another cell until you write something in it

[Paul_Hossler]

Try this version then

The 2 Const are in the standard module and are the cells to check
This seemed the easiest and most maintainable way

Option Explicit


Public Const cSheet1Match As String = "A1,A3,A5,A7,A14,"    '   need last comma
Public Const cSheet2Match As String = "B1,B3,B5,B7,B14,"    '   need last comma


Sub putSheet1OnSheet2(rSheet1 As Range)
    Dim rSheet2 As Range
    
    With rSheet1
        Set rSheet2 = Worksheets("Sheet2").Range(rSheet1.Address).Offset(0, 1)
        rSheet2.Value = .Value
    End With
End Sub


Sub getSheet2FromSheet1(rSheet2 As Range)
    Dim rSheet1 As Range
    
    With rSheet2
        Set rSheet1 = Worksheets("Sheet1").Range(rSheet2.Address).Offset(0, -1)
        .Value = rSheet1.Value
    End With
End Sub