Macro assistance

[Na$$]

Hello Experts,

Appreciate some assistance with developing a macro. Following are the details:


Macro required for update button
There are 2 worksheets:
- Qualification
- Renewal
Qualification:
- Contains data in columns A – U
- Column U, ‘Contract Renewal Status’ , contains the renewal status ‘Renew’ or ‘Non Renewal’
Renewal:
- Contains command button ‘Update data’
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>Required:
- A Macro that Copy’s data in columns A –U with items where the contract status is ‘Renew’ from ‘Qualification’ worksheet to ‘Renewal’ worksheet by clicking ‘Update data’ button.

 

[Yahya]

Try this code

Sub Test()
Dim Fws As Worksheet, Tws As Worksheet, LR As Long
Set Fws = Worksheets("Qualification")
Set Tws = Worksheets("Renewal")
LR = Fws.Range("A" & Rows.Count).End(xlUp).Row
With Fws.Range("A1:U" & LR)
    .AutoFilter 21, "Renew"
    .Copy Tws.Cells
    .AutoFilter
End With
End Sub