Can you check my code please

[ipbr21054]

I have a code on a worksheet which i would like to use on another sheet.
I changed the range etc to suit the new sheet but the sheet just ended up in a right mess when i run it.

The sheet i need the sort code on has this info for you.
Sheet name CLONING
Row 2 is headers.
Row 3 is hidden.
Values then start in row 3
The columns in use are D-I

The values in column D of which i need to sort are numbers & letters,low number to high number

So i used the code below where i changed the following
A5:Q to D3:I
Sheet name DATABASE to CLONING
=Range & .Range A6 to =Range & .Range to D4

Private Sub ChipSortSort_Click()    Dim x As Long
        Application.ScreenUpdating = False
        With Sheets("DATABASE")
        If .AutoFilterMode Then .AutoFilterMode = False
        x = .Cells(.Rows.Count, 1).End(xlUp).Row
            .Range("A5:Q" & x).Sort key1:=Range("A6"), order1:=xlAscending, Header:=xlGuess
    End With
    ActiveWorkbook.Save
       Application.ScreenUpdating = True
    Sheets("DATABASE").Range("A6").Select
End Sub

 

[ipbr21054]

It would of been easier to just supply the code as you might have seen i was having issues
But no i get taken on a mine field where i end up giving in as i need to work out the reply before i even get to trying to sort of the code.

 

[MARK858]

@ipbr21054, test the code below and report back your findings/results....

    Dim x As Long
    With Sheets("CLONING")
        If .AutoFilterMode Then .AutoFilterMode = False
        x = .Columns("D:I").Find("*", , xlValues, , xlByRows, xlPrevious).Row
        .Range("D4:I" & x).Sort key1:=.Range("D4"), order1:=xlAscending, Header:=xlNo
    End With

 

[ipbr21054]

@MARK858,That worked a treat.

Many Thanks.