I am using the below code but cannt understand the error (bold code). The main of the code is to select a range of cells data, paste it on SD (sheet) acts a database and then reset all the relevant cells/delect/clear. Kindly assist
Sub uploadsinf()
Application.ScreenUpdating = False
Dim bottomV As Long
bottomH = Sheets("SD").Range("L" & Rows.Count).End(xlUp).Row
Sheets("Info").Range("D25:D46").Copy
Sheets("SD").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValues, Transpose:=True
Sheets("Info").Range("D8,D10,D12,D15,D16,D17,F6,F8,F10,F12,F15,F16,F17,J6,J8,J10,M8").ClearContents
Application.CutCopyMode = False
Sheets("SD").Select
Sheets("SD").Range("A2:V" & bottomV).Select
Sheets("SD").Sort.SortFields.Clear
Sheets("SD").Sort.SortFields.Add Key:=Range("A2:A" & bottomH), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Sheets("SD").Sort
.SetRange Range("A1:V" & bottomV)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
Sheets("Info").Select
End Sub
Sub uploadsinf()
Application.ScreenUpdating = False
Dim bottomV As Long
bottomH = Sheets("SD").Range("L" & Rows.Count).End(xlUp).Row
Sheets("Info").Range("D25:D46").Copy
Sheets("SD").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValues, Transpose:=True
Sheets("Info").Range("D8,D10,D12,D15,D16,D17,F6,F8,F10,F12,F15,F16,F17,J6,J8,J10,M8").ClearContents
Application.CutCopyMode = False
Sheets("SD").Select
Sheets("SD").Range("A2:V" & bottomV).Select
Sheets("SD").Sort.SortFields.Clear
Sheets("SD").Sort.SortFields.Add Key:=Range("A2:A" & bottomH), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Sheets("SD").Sort
.SetRange Range("A1:V" & bottomV)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
Sheets("Info").Select
End Sub