Copy/Drag Down for Data range's running extremely slow.

[Hyflex]

Hey, I'm trying to get this macro below working faster but it's going incredibly slow for a reason I don't know...

    Dim rngName As Range: Set rngName = Range("A6:A15000").Find("Name")
    If rngName Is Nothing Then
        MsgBox "No cells in column A that contain ""Name"""
        Exit Sub
    End If
    Dim rngPrior As Range: Set rngPrior = rngName
    
    While Not rngName Is Nothing
        If rngName.Row < rngPrior.Row Then Exit Sub
        rngName.Offset(1, 130).Copy rngName.Offset(1, 130).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 131).Copy rngName.Offset(1, 131).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 132).Copy rngName.Offset(1, 132).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 133).Copy rngName.Offset(1, 133).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 134).Copy rngName.Offset(1, 134).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 135).Copy rngName.Offset(1, 135).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 141).Copy rngName.Offset(1, 141).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 142).Copy rngName.Offset(1, 142).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 143).Copy rngName.Offset(1, 143).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 144).Copy rngName.Offset(1, 144).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 145).Copy rngName.Offset(1, 145).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 160).Copy rngName.Offset(1, 160).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 161).Copy rngName.Offset(1, 161).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 162).Copy rngName.Offset(1, 162).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 163).Copy rngName.Offset(1, 163).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 164).Copy rngName.Offset(1, 164).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 165).Copy rngName.Offset(1, 165).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 161).Copy rngName.Offset(1, 171).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 162).Copy rngName.Offset(1, 172).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 173).Copy rngName.Offset(1, 173).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 174).Copy rngName.Offset(1, 174).Resize(rngName.CurrentRegion.Rows.Count - 3)
        rngName.Offset(1, 175).Copy rngName.Offset(1, 175).Resize(rngName.CurrentRegion.Rows.Count - 3)
        Set rngPrior = rngName
        Set rngName = Range("A6:A15000").Find("Name", rngName)
    Wend