need help to activate macro with clearcontents and need to protect sheet

[jena]

May u help us to my code with clearcontent of specific column that need to clear content and protect sheet.Thank you

This is my code
Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFi le Lib "urlmon" Alias "URLDownloadToF ileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
#Else
Private Declare Function URLDownloadToFi le Lib "urlmon" Alias "URLDownloadToF ileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Sub DownloadFiles()
Call ClearContents

Dim sh As Worksheet, DownloadFolder As String, lastrow As Long, SpecialChar() As String, SpecialCharFoun d As Double, asdf As Integer, ms As Workbook, digital As Workbook, fdsa As Integer
Dim FilePath As String, i As Long, j As Integer, Result As Long, CountErrors As Long, actvewkb As Workbook, ceel As Excel.Range
Set actvewkb = ActiveWorkbook
Sheets("Schedul e").Activate
asdf = Cells(Rows.Coun t, "A").End(xlUp). Row
Range("A2:AT" & asdf).ClearCont ents

Result = URLDownloadToFi le(0, "http:\\theconn ection.onsemi.c om\manufacturin g\ospi\cal_PM\" & _
"production_con trol\Shop Floor Schedule By Tester\FT_Digit al.xlsx", "C:\autodispatc h\FT_Digital.xl sx", 0, 0)
Call LastModifiedFil e
Set digital = ActiveWorkbook
Range("A11:AT50 00").Copy
actvewkb.Activa te
Sheets("Schedul e").Activate
Range("A2").Pas teSpecial xlPasteValuesAn dNumberFormats
asdf = Cells(Rows.Coun t, "A").End(xlUp). Row

Call ForeverLooping( asdf, 0)

Application.Dis playAlerts = False
digital.Close
Application.Dis playAlerts = True

Result = URLDownloadToFi le(0, "http:\\theconn ection.onsemi.c om\manufacturin g\ospi\cal_PM\" & _
"production_con trol\Shop Floor Schedule By Tester\FT_MS.xl sx", "C:\autodispatc h\FT_MS.xlsx", 0, 0)

Call LastModifiedFil e

Set ms = ActiveWorkbook
Sheets("T2K").A ctivate
asdf = Cells(Rows.Coun t, "A").End(xlUp). Row
Range("A10:AT" & asdf).Copy
actvewkb.Activa te
Sheets("Schedul e").Activate
fdsa = Cells(Rows.Coun t, "A").End(xlUp). Row
Range("A" & fdsa + 1).PasteSpecial xlPasteValuesAn dNumberFormats
asdf = Cells(Rows.Coun t, "A").End(xlUp). Row

Call ForeverLooping( asdf, fdsa)

ms.Activate
Sheets("UFLX"). Activate
asdf = Cells(Rows.Coun t, "A").End(xlUp). Row
Range("A18:AT" & asdf).Copy
actvewkb.Activa te
Sheets("Schedul e").Activate
fdsa = Cells(Rows.Coun t, "A").End(xlUp). Row
Range("A" & fdsa + 1).PasteSpecial xlPasteValuesAn dNumberFormats
asdf = Cells(Rows.Coun t, "A").End(xlUp). Row
Call ForeverLooping( asdf, fdsa)
Application.Dis playAlerts = False
ms.Close
Application.Dis playAlerts = True

Call FineTuning

Range("A2").Sel ect
End Sub

Sub ClearContents()
Dim lastrow As Integer
lastrow = Cells(Rows.Coun t, "A").End(xlUp). Row
Sheets("UPDATE" ).Activate
Range("A4:E" & lastrow).ClearC ontents
End Sub

Sub ForeverLooping( ByVal asdf As Integer, ByVal i As Integer)
Dim x As Integer
If i = 0 Then i = 2
For x = i To asdf
If Range("A" & x).Text <> "" Then
If Range("A" & x + 1).Text = "" Then
Range("A" & x + 1).EntireRow.De lete
asdf = Cells(Rows.Coun t, "A").End(xlUp). Row
If x = asdf Then
Exit For
Else
x = x - 1
End If
End If
End If
Next
End Sub

Sub FineTuning()
Dim lastrow As Integer, x As Integer
Dim neValues As Range, neFormulas As Range, MyRange As Range
lastrow = Cells(Rows.Coun t, "A").End(xlUp). Row
For x = 2 To lastrow
Range("B" & x).Select
Set MyRange = Columns("B:AT")
On Error Resume Next
Set neValues = Intersect(Activ eCell.EntireRow .SpecialCells(x lConstants), MyRange)
Set neFormulas = Intersect(Activ eCell.EntireRow .SpecialCells(x lFormulas), MyRange)
On Error GoTo 0
If neValues Is Nothing And neFormulas Is Nothing Then
Range("B" & x).EntireRow.De lete
End If
Next
End Sub

Public Sub LastModifiedFil e()
Dim dirName As String, fName As String, fileTime As Date, fileName As String, latestFile As String
dirName = "C:\autodispatc h\"
fName = Dir(dirName & "\*.xlsx*")
latestFile = fName
fileTime = FileDateTime(di rName & fName)
While fName <> ""
If FileDateTime(di rName & fName) > fileTime Then
latestFile = fName
fileTime = FileDateTime(di rName & fName)
End If
fName = Dir()
Wend
If latestFile = "" Then
MsgBox "There are no files in the directory"
Else
Application.Dis playAlerts = False
Workbooks.Open "C:\autodispatc h\" & latestFile, UpdateLinks:=xl UpdateLinksAlwa ys
Application.Dis playAlerts = True
End If

x:
If Err.Description <> "" Then MsgBox "Process did not detect the directory. Process will end.", vbCritical, "OEE Report Generator"

End Sub