Select COPY range based upon MAX in Column

[CordingBags]

I am trying to write / find a MACRO to copy a range from the Current Sheet to another sheet, FIXTURES
Range is based upon the MAX value in column F
Then range will extend from column D to column N
Copy range commences at D1 and may go as far as N318, but should stop at N???, based on MAX value in column F.
Plus one row.
ie if MAX is row 107 then copy area D1:N108

Any help appreciated
Thanks
Paul

 

[kevin9999]

If at first...

Option Explicit
Sub CordingBags_V3()
    Dim ws1 As Worksheet, ws2 As Worksheet, rng As Range, r As Range, i As Long, d As Date
    Set ws1 = ActiveSheet
    Set ws2 = Worksheets("FIXTURES")
    Set rng = ws1.Columns("F")
    
    d = Application.Max(rng)
    Set r = rng.Find(d)
    i = r.Row
    
    If i > 0 Then
        ws1.Range("D1:N" & i + 1).Copy
        ws2.Range("D1").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End If
End Sub

 

[CordingBags]

Sub CordingBags_V3() Dim ws1 As Worksheet, ws2 As Worksheet, rng As Range, r As Range, i As Long, d As Date Set ws1 = ActiveSheet Set ws2 = Worksheets("FIXTURES") Set rng = ws1.Columns("F") d = Application.Max(rng) Set r = rng.Find(d) i = r.Row If i > 0 Then ws1.Range("D1:N" & i + 1).Copy ws2.Range("D1").PasteSpecial xlPasteValues Application.CutCopyMode = False End If End Sub

Fantastic, again Many Thanks for Your Help
Chers
Paul

 

[kevin9999]

Fantastic, again Many Thanks for Your Help
Chers
Paul

Glad we got there in the end Paul, cheers