In cell D30 I will enter a number. I would like for that number to appear
in cell M30 then have the word "Material" to appear in cell D30. Below is
what I am trying to work with, but I always get "Material" in both D30 and
M30. How do I fix this?

Thanks,
Phil

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$30" Then
Range("M30") = Range("D30")
Range("D30") = "Material"
End If
End Sub