helping scaling down small code...

[buzz71023]

If anyone has any recommendations that might make this a little smaller, I would appreciate it. Its not that slow or long but every little bit will helps.

Application.ScreenUpdating = False
Sheets("Test Sheet").Select
Range("Ash3Freq").Value = ComboBox1.Value
Range("Ash3Trgt").Value = TextBox1.Value
Range("Ash3Hi").Value = TextBox2.Value
Range("Ash3Low").Value = TextBox3.Value
Sheets("Test Sheet").Select
Columns("D:D").Select
Selection.Copy
Sheets("Data Sheet").Select
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
Range("I7").Select
Sheets("Test Sheet").Select
Range("D8:D11").ClearContents
Sheets("Data Sheet").Select
Range("C2, C2").Select
Application.ScreenUpdating = True

Unload Me

 

[AlphaFrog]

    Application.ScreenUpdating = False
    
    With Sheets("Test Sheet")
        .Range("Ash3Freq").Value = ComboBox1.Value
        .Range("Ash3Trgt").Value = TextBox1.Value
        .Range("Ash3Hi").Value = TextBox2.Value
        .Range("Ash3Low").Value = TextBox3.Value
    End With
    
    Sheets("Test Sheet").Columns("D:D").Copy
    Sheets("Data Sheet").Columns("I:I").Insert Shift:=xlToRight
    Sheets("Test Sheet").Range("D8:D11").ClearContents
    
    Application.Goto Reference:=Worksheets("Data Sheet").Range("C2")
    
    Application.ScreenUpdating = True
    
    Unload Me

 

[buzz71023]

Thanks