VBA mismatch error 13 after adding paste condition

[MarcianoPL]

Good afternoon everyone!

I was hoping that you could help me solving error with my code.
What I want to achieve is when user type "ok" in any cell the code will copy range directly above target cell and paste it in target cell. And this part is working just fine, it copy-paste as desired, however after paste immediately run-time error 13 pops out. What's even more wierd for me is that after clicking "end" i will get this error for second time if i do anything with pasted range. Debug function highlights IF statement.
Can't make heads or tails out of it...

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = "ok" Then
StartCell = Target.Offset(-7, 0).Address
EndCell = Target.Offset(-1, 0).Address
Range(StartCell, EndCell).Copy Target

Else

End If

End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target = "ok" And Target.Row > 7 Then
      Target.Offset(-7).Resize(7).Copy Target
   End If
End Sub

 

[MarcianoPL]

Hi & welcome to MrExcel.
How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target = "ok" And Target.Row > 7 Then
      Target.Offset(-7).Resize(7).Copy Target
   End If
End Sub

Works like a charm! Thank you sooo much!

 

[Fluff]

You're welcome & thanks for the feedback.