Is this VBA "Target,Offset" code proper or is there a better way?

[EssKayKay]

I have some coding I use to "copy/paste special" after entering data into specific cells. It's doing what I want so maybe this is a silly question BUT, just wondering if there is some other more efficient or acceptable way to code this?

    If IsDate(Target) Then Target.Offset(, -2).Value = Target.Offset(, -2).Value
    If IsDate(Target) Then Target.Offset(, -3).Value = Target.Offset(, -3).Value
    If IsDate(Target) Then Target.Offset(, -4).Value = Target.Offset(, -4).Value
    If IsDate(Target) Then Target.Offset(, -5).Value = Target.Offset(, -5).Value
    If IsDate(Target) Then Target.Offset(, -6).Value = Target.Offset(, -6).Value
    If IsDate(Target) Then Target.Offset(, -7).Value = Target.Offset(, -7).Value
    If IsDate(Target) Then Target.Offset(, -8).Value = Target.Offset(, -8).Value
    If IsDate(Target) Then Target.Offset(, -9).Value = Target.Offset(, -9).Value
    If IsDate(Target) Then Target.Offset(, -10).Value = Target.Offset(, -10).Value
    If IsDate(Target) Then Target.Offset(, -11).Value = Target.Offset(, -11).Value

Thanks,
Steve

 

[Peter_SSs]

You can do it much more economically like this

If IsDate(Target.Value) Then
  With Target.Offset(, -11).Resize(, 10)
    .Value = .Value
  End With
End If

 

[EssKayKay]

You can do it much more economically like this

If IsDate(Target.Value) Then
  With Target.Offset(, -11).Resize(, 10)
    .Value = .Value
  End With
End If

That worked great. Thank you Peter - much appreciated.

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.